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ABSTRACT 


The  Computer  Generated  Plan  of  Action  and 
Milestones  (POAM)  Pogram  tracks  the  progress  of  a 
project  using  computer  graphics.  Included  is  an 
explanation  of  DISSPLA,  the  computer  graphics 
language  used  to  graph  the  POAM  chart.  The  program 
is  implemented  on  the  CDC  6600  computer  at  DTNSRDC . 


1.0.  INTRODUCTION  AND  BACKGROUND 
^"^The  Computer  Generated  Plan  of 


Action  and  Milestones  (POAM)  Program  was 


developed  to  generate  a  Plan  of  Action  and  Milestones  Chart  using  computer 
graphics.  These  charts  are  used  in  reports  and  system  Decision  Papers# 

Ftgj ff£LX) .  The  charts  show  the  progress  and  methodology  of  a  project.  The 
original  charts  were  generated  by  hand  (ruler  and  pencil  with  a  final  typed 
copy)  and  by  graphics  procedures.  The  computer  program  will  enable  the  user 
to  generate  these  graphs  faster,  and  more  efficiently. 

The  program  uses  Fortran,  and  Display  Integrated  Software  System  and 
Plotting  LAnguage  (DISSPLA).  DISSPLA  is  a  software  package  that  enables  the 
user  to  produce  graphics.  The  user  is  advised  to  become  familiar  with  the 
introductory  protlons  ‘fpart  A^ffic tio^  ) ^ of  the  DISSPLA  manual. 

This  manual  explains  how  POAMs  are  produced  through  interactive  and  batch 


computer  methods^ 

2.0.  PROGRAM  DESCRIPTION 


A  POAM  chart  indicates  the  progress  of  a  project  by  showing  the  various 
steps  of  the  project  and  their  initiation  and  completion  dates.  Each  step  is 
given  a  number  or  Action  Ir .  Then,  a  brief  description  of  the  step  is  given, 
followed  by  the  official  responsible  for  completing  its  task.  Following  this 
is  a  vector  (a  line  Indicating  the  duration  of  the  action)  which  points  to  the 
fiscal  year  and  month  of  the  start  and  stop  dates  of  that  step.  These  dates 

are  verified  in  the  final  columns  of  the  chart.  This  report  describes  how  to 

\ 

generate  such  a  POAM. 

The  most  recent  CGPP  (Computer  Generated  POAM  Program)  uses  a  basic 
skeleton  or  frame  of  the  chart  and  allows  the  user  to  fill  in  the  pertinent 
information.  This  frame  consists  of  the  POAM  chart  and  its  headings.  The 
code  for  producing  this  chart  should  be  the  first  section  of  the  program,  and 
then  any  specific  information  can  be  added.  The  code  to  produce  this  frame  is 
given  In  Appendix  A. 


L 


i 


To  allow  the  user  to  add  information  with  ease,  several  variables  and 
subroutines  have  been  predefined.  These  variables  eliminate  the  need  to 
compute  the  exact  positions  of  the  various  vectors  and  dates.  These  variables 
and  subroutines  will  be  explained  in  detail  in  Sections  3.3  and  3.4, 
respectively. 

If  this  basic  frame  is  not  sufficient  for  a  particular  application,  the 
user  may  construct  one  (see  Section  4)  by  changing  the  values  used  in  the 
subroutines  and  variables.  These  changes  should  be  minor  and  are  based  on  the 
dimensions  of  the  chart.  The  information  in  Appendix  B  is  an  example  of  such 
a  situation. 


3.0.  SETTING  THE  PROGRAM 

The  program  deck  is  divided  into  four  basic  sections:  (1)  The  control 
cards  necessary  to  run  the  program;  (2)  the  code  that  produces  the  POAM  frame, 
which  can  be  copied  directly  from  the  example  in  Appendix  A;  (3)  The  infor¬ 
mation  that  "fills”  the  frame,  all  of  which  is  upplied  by  the  user;  and  (4) 
the  cards  which  close  up  the  program  and  terminate  the  run.  The  user  should 
set  up  the  program  deck  as  shown  in  Figure  2. 


3. 1 .  User fs  Input 

When  the  basic  frame  of  the  chart  is  complete,  the  user  is  ready  to  add 
information  to  the  chart.  First  the  user  inputs  this  information  in  a  format 
suitable  for  a  POAM  chart  by  answering,  or  responding  to  the  following 
questions : 

a.  What  is  the  ACTION  ID  of  this  step  or  task?  If  there  is  none,  give 
the  step  an  identification  number. 

b.  Briefly  (no  more  than  50  characters)  describe  the  function  or  purpose 
of  this  step. 

c.  Determine  who  is  responsible  for  completing  this  task. 

d.  Determine  the  year  and  month  that  the  task  will  be  initiated. 


e. 

f. 

g* 

h, 

i. 


Determine  the  year  and  month  that  the  task  will  be  finished. 


ession  For 


What  (if  any)  is  the  estimated  initiation  date? 
What  (if  any)  is  the  actual  initiation  date? 
What  (if  any)  is  the  estimated  completion  date? 
What  (if  any)  is  the  actual  completion  date? 
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Figure  2  -  Program  Deck 
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Once  these  questions  have  been  answered,  the  user  is  ready  to  put  this 
information  in  terms  acceptable  to  the  DISSPLA  program. 

3.2.  Sample  Task 

The  following  example  illustrates  one  step  of  a  project  and  the  code 
necessary  to  plot  this  step.  The  Action  ID  for  this  example  will  be  0.0,  the 
Description  will  be,  "Define  Specifications  for  Project  A,"  and  the 
Responsible  Official  is  DTNSRDC.  This  action  started  in  October  of  1982  and 
will  finish  in  March  of  1984.  The  estimated  initiation  date  was  September 
1982,  the  actual  initiation  date  was  October  1982.  It  is  estimated  that  this 
task  will  be  completed  in  March  of  1984.  At  this  point  the  actual  completion 
date  is  not  known. 

To  plot  this  example,  the  following  DISSPLA  and  FORTRAN  commands  are 
needed . 

CALL  YC00RD(2, OFFSET, 1,ANS) 

CALL  MESSAG( "0. 0$" , 100, XBLK1 ,ANS) 

CALL  MESSAG ( "DTNSRDC$" ,100, XBLK2 , ANS ) 

CALL  MESSAG ("DEFINE  SPECIFICATIONS  FOR  PROJECT  A$" , 1 00 , XBLK3, ANS) 

CALL  VECTPL(3HOCT,2,SP1) 

CALL  VECTPL(3HMAR,3,SP2) 

CALL  MARKPL(3HMAR,3.SP3) 

ANS2  =  ANS  +  0.1 

CALL  VECTORCSP1 ,ANS2,ANS,0) 

CALL  VECT0RCSP1 , ANS,SP2, ANS,0) 

CALL  MARKER (5) 

CALL  CUR VPL ( ANS , YVALU ) 

CALL  CURVE (SP3* YVALU, 1,1) 

CALL  MESSAG ( "SEP  82$" , 1 00, XBLK9 , ANS) 

CALL  MESSAG ("OCT  82$" , 100.XBLK10, ANS) 

v 

CALL  MESSAG ("MAR  84$" , 100, XBLK1 1 ,ANS) 

These  commands  will  be  briefly  described.  For  a  more  specific  description 
of  how  the  variables  are  used  see  Section  3.3.  how  the  DISSPLA  functions  are 
used  see  Section  5,  and  how  the  FORTRAN  subroutines  are  used  see  Section  3.4. 

The  first  call  to  YCOORD  is  a  FORTRAN  subroutine  call.  The  code  for  this 
subroutine  is  given  in  Appendix  C.  This  subroutine  obtains  the  Y-coordinate 


of  the  second  line  from  the  beginning  of  the  chart  and  stores  the  result  in 
the  variable  "ANS."  This  variable  will  be  used  to  plot  other  information  on 
that  same  line. 

The  next  three  calls  to  MESSAG  plot  the  "ACTION  ID"  (0.0),  the  "RESPONS¬ 
IBLE  OFFICIAL"  (DTNSRDC) ,  and  the  "DESCRIPTION"  (Define  Specifications  for 
Project  A)  in  different  columns,  on  the  same  line  by  using  different  X-coordi- 
nates  for  the  different  calls  to  MESSAG.  The  X-coordinates  are  stored  in  the 
XBLfC  variables.  "XBLK1"  is  the  X-coordinate  for  the  first  column  of  the 
chart,  "XBLK2"  for  the  second  column,  and  so  on.  The  values  for  ther  vari¬ 
ables  can  be  obtained  from  Table  1. 

The  calls  to  VECTPL  are  used  to  obtain  the  X-coordinates  for  the  «rt 
date  (in  this  case  October  1982)  and  the  finish  date  (March  1984). 

X-coordinate  of  the  starting  point  of  the  vector  is  stored  in  "SP1";  /alue 

of  the  finish  date  is  stored  in  "SP2." 

MARKPL  is  similar  to  VECTPL  in  that,  given  a  month  and  a  year  (3HMAR,3- 
March  in  the  third  fiscal  year),  it  returns  the  X-coordinate  of  the  position 
of  the  marker  or  termination  symbol.  This  value  is  stored  in  "SP3." 

There  are  two  calls  to  VECTOR;  the  first  plots  a  vertical  vector  and  the 
second,  a  horizontal  vector.  The  vertical  vector  is  used  to  show  the  start 
date,  and  the  horizontal  vector  shows  the  duration  of  that  task. 

The  call  to  MARKER  allows  the  user  to  select  the  type  of  termination 
symbol  that  will  be  used  to  show  the  finish  date.  The  user  is  advised  to  use 
"Marker(5)"  if  the  task  is  incomplete  or  "MARKER(9)"  if  it  is  completed.  The 
call  to  CURVPL  will  get  the  Y-coordinate  of  the  marker,  and  the  call  to  CURVE 
plots  the  marker. 

The  last  three  calls  to  MESSAG  are  similar  to  the  earlier  calls  except  for 
their  X-coordinates,  which  again,  are  varied  by  using  the  XBLK  variables. 

When  no  date  exists,  the  column  is  left  blank,  and  there  is  no  call  to  MESSAG. 
The  plot  for  this  example  is  shown  in  Figure  3. 


3.3.  Predefined  Variables 

As  an  aid  to  the  user,  some  variables  have  been  predefined.  These  vari¬ 
ables  represent  frequently  used  coordinates,  which  are  initialized  at  the 
beginning  of  the  program,  or  values  returned  from  subroutines  and  frequently 
used  in  DISSPLA  subroutines.  They  are  described  in  Table  1. 


PLAN  or  HCT 1  ON  DND  MILESTONE 


Figure  3  -  Plot  for  Sample  Task 


3.4*  FORTRAN  Subroutines 

The  subroutines  in  this  section  calculate  X-  and  Y-coordinates .  To  obtain 
the  Y-coordinate  for  a  line,  call  subroutine  YCOORD.  To  obtain  the  X-coordi- 
nate  of  a  specified  month  and  year,  call  subroutines  MARKPL  and  VECTPL.  To 
convert  a  Y-coordinate  from  inches  to  user-defined  ticks,  call  subroutine 
CURVPL.  The  following  sections  describe  these  subroutines  and  their  use. 

3.4.1.  Subroutine  VECTPL 

Subroutine  VECTPL  returns  the  X-coordinates  of  the  endpoints  of  the 
vector.  In  the  call  to  VECTPL  the  user  defines  the  month  and  the  fiscal  year 
of  the  endpoint.  Since  there  are  two  endpoints  to  a  vector,  there  are  two 
calls  to  VECTPL: 

CALL  VECTPL  (3HJUL,2,SP1 ) 

CALL  VECTPL  ( 3HMAR, 5,SP2) 

where 

3HJUL  is  the  month  of  July.  The  user  gives  only  the  first  three 

letters  of  the  month  (The  3H  in  front  of  JUL  is  CDC  FORTRAN’S 
way  of  defining  characters). 

2  is  the  second  fiscal  year.  Since  the  user  defines  the  range 

of  fiscal  years  (e.g.,  82-86  or  90-94),  only  the  number  1,  2, 
3,  4,  or  5  are  used  by  the  subroutine. 

SP1  is  the  value  of  the  X-coordinate  which  represents  the  left 

endpoint  of  the  vector,  SP2  represents  the  right  endpoint  of 
the  vector.  Both  values  are  given  in  inches. 

3.4.2  Subroutine  MARKPL 

This  subroutine  returns  the  X-coordinate  used  to  plot  the  marker.  The 
calling  arguments  are  the  same  as  those  of  subroutine  VECTOR,  The  only 
difference  between  them  is  that  the  returned  X-coordinate  value  for  VECTPL  is 
in  inches,  whereas  the  returned  X-coordinate  here  is  in  user-defined  ticks 
(see  Section  5.9).  An  example  of  a  call  to  MARKPL  is 
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CALL  MARKPL  ( 3H0CT, 4,SP3) 

where 

3H0CT  is  the  month  which  the  marker  will  point  to.  In 
this  case  it  is  October, 

4  is  the  fiscal  year  which  the  marker  will  point  to. 

SP3  is  the  X-coordinate  in  user-defined  ticks. 

3.4.3  Subroutine  IycOORD 

This  subroutine  returns  the  Y-coordinate  used  to  plot  an  entire  line  of 
information.  An  example  of  the  calling  arguments  to  YCOORD  are: 
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TABLE  1  -  Table  of  Variables 


1 

1 

!  VARIABLE 

i 

i 

DESCRIPTION 

* 

i 

!  »XBLK1 

t 

1 

1 

1 

• 

The  X-Coordinate  for  the  first  Vertical  Bar  or  block.  It  is 
used  to  write  messages  underneath  the  "ACTION-ID”  heading  of 
the  chart.  In  the  POAM  generated  by  this  report  XBLK1  =  0.21 

1 

!  *XBLK2 

1 

1 

J 

t 

t 

1 

1 

The  X-Coordinate  for  the  second  vertical  bar  or  block.  It  is 
used  to  write  messages  underneath  the  "Description"  heading 
of  the  chart.  In  the  POAM  generated  by  this  report  XBLK2  = 
0.80. 

1 

!  *XBLK3 

1 

t 

1 

> 

The  X-Coordinate  for  the  third  Vertical  Bar.  It  is  used  to 
write  messages  underneath  the  "Responsible  Official"  heading 
of  the  chart.  In  the  POAM  generated  by  this  report  XBLK3  = 
5.2. 

1 

!  «XBLK9 

1 

1 

t 

1 

1 

1 

1 

The  X-Coordinate  for  the  ninth  Vertical  Bar.  It  is  used  to 
write  messages  underneath  the  "Estimated  Initiation  Date" 
heading  of  the  chart.  In  the  POAM  generated  by  this  report 
XBLK9  =  12.37. 

1 

i  *XBLK10 

1 

1 

1 

1 

l 

) 

1 

The  X-Coordinate  for  the  tenth  Vertical  Bar.  It  is  used  to 
write  messages  underneath  the  "Actual  Initiation  Date"  heading 
of  the  chart.  In  the  POAM  generated  by  this  report 

XBLK10=13. 375. 

1 

!  *XBLK 1 1 

1 

1 

1 

1 

1 

1 

i 

The  X-Coordinate  for  the  eleventh  Vertical  Bar.  It  is  used  to 
write  messages  underneath  the  "Estimated  Completion  Date" 
heading  of  the  chart.  In  the  POAM  generated  by  this  report 
XBLK1 1=14.37. 

t 

!  »XBLK12 

I 

1 

1 

\ 

» 

The  X-Coordinate  for  the  twelfth  Vertical  Bar.  It  is  used  to 
write  messages  underneath  the  "Actual  Completion  Date"  heading 
of  the  chart.  In  the  POAM  generated  by  this  report 

XBLK12=15. 375. 

!  ANS 

i 

i 

i 

The  Y-Coordinate  of  a  line  that  is  returned  from  a  call  to 
Subroutine  YCOORD.  (See  Section  3.^.3.) 

» 

!  ANS2 
\ 

i 

i 

Used  to  plot  a  vertical  vector  of  length  0.1  inches.  This 
vertical  vector  is  used  to  show  the  initiation  month. 

i 

!  ANS3 

t 

i 

i 

i 

A  Y-Coordinate  that  Is  offset  0.05  inches  from  the  current 
Y-Cordinate  of  the  line  (i.e.  ANS).  It  is  used  to  underline  a 
Milestone  heading. 
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TABLE  1  -  Table  of  Variables  (Cont'd) 


VARIABLE 


DESCRIPTION 


SP1 


SP2 


SP3 


A  X-Coordinate  of  a  given  month  and  Fiscal  Year.  Its  value 
is  obtained  through  a  call  to  VECTPL.  It  is  the  X-Coordinate 
of  the  leftmost  endpoint  of  the  vector. 

A  X-Coordinate  of  a  given  month  and  Fiscal  Year.  Its  value  is 
obtained  through  a  call  to  VECTPL.  It  is  the  X-Coordinate  of 
the  rightmost  endpoint  of  the  vector. 

The  X-Coordinate  used  to  plot  the  marker.  It  is  returned  from 
a  call  to  MARKPL  and  its  value  is  in  user  defined  ticks  (see 
Section  3.  **.2.  of  this  manual)  as  opposed  to  inches. 

•See  Figure  9  for  all  of  these. 


-  CALL  YCOORD  (3,  OFFSET, 0, ANS) 

where: 

3  is  the  line  number  (from  the  top  of  the  chart),  of  the 

line  that  the  user  is  currently  ploting.  This  number 
must  be  an  integer  and  must  fall  between  1  and  43. 

OFFSET  is  used  to  offset  lines  immediately  following  a  Milestone 
heading  so  that  some  space  (one  line)  is  left  between  them. 

0  Zero  indicates  that  this  line  is  not  a  Milestone  heading. 

A  1  indicates  that  this  line  ^is  a  Milestone  heading  and  the 
subroutine  will  offset  the  line  (move  it  down  a  line  on  the 
chart)  immediately  following  it. 

ANS  is  the  returned  value  of  the  Y-coordinate  of  the  line 

specified.  It  is  used  to  plot  messages  and  vectors  (but  not 
markers)  on  that  single  line. 

Another  function  of  ANS  is  to  underline  Milestone  Headings.  This  is  accom¬ 
plished  by  decreasing  its  value  by  0.05.  This  value  is  stored  in  ANS3  as 
shown  below: 

ANS3  =:  ANS  -  0.05 
After  this  a  call  to 

VECTOR  (0.80, ANS3, 4.95, ANS3,0) 

will  underline  the  heading  (see  Section  5.3.1).  ANS  is  also  used  to  offset 
the  left  endpoint  of  a  vector  so  that  the  endpoint  becomes  a  vertical  vector. 
This  offset  is  stored  in  ANS2  as  shown  below: 

ANS2  =  ANS  +  0.1 

Vertical 
Vector  ! 
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3.4.4.  Subroutine  CURVPL 

This  subroutine  returns  the  Y-coordinate  used  to  plot  the  marker.  The 
returned  value  is  in  units  of  user-defined  ticks  because  the  call  to 
subroutine  CURVE  must  be  in  user-defined  ticks  and  not  in  inches.  This 
subroutine  takes  the  Y-coordinate  (in  inches)  of  the  current  line  and  converts 
inches  to  user-defined  ticks.  See  Section  5.5  for  an  explanation  of 
user-defined  ticks.  An  example  of  a  call  to  CURVPL  is: 

CALL  CURVPL  (ANS,  YVALU) 

where: 

ANS  -  is  the  current  Y-coordinate  in  inches.  This  value  is 
otained  by  calling  subroutine  YCOORD. 

YVALU  -  is  the  returned  Y-coordinate  in  user-defined  ticks. 

3.5.  Using  DISSPLA  Subroutines 

Use  of  the  subroutines  discussed  in  Section  3*4  makes  the  following 
DISSPLA  subroutines  easier  to  implement. 

After  a  call  to  subroutine  YCOORD,  the  returned  value,  ANS,  can  be  used  in 
any  call  to  MESSAG  on  that  entire  line.  For  example, 

CALL  MESSAG  ("1.2$",  100,XBLK1 , ANS) 

CALL  MESSAG  ( " (DTNSRDC)$" ,  100,  XBLK3, ANS) 

Now  the  user  need  only  decide  which  message  to  plot  and  under  which 
heading  it  belongs  (which  XBLK  variable  to  use). 

After  a  call  to  subroutine  VECTPL,  the  returned  values  SP1  and  SP2  can  be 
used  to  plot  the  vector  as  follows: 

ANS2  =  ANS  +  0.1  (See  Section  5.3.1) 

CALL  VECTOR  (SP1 ,ANS2,SP1 ,ANS,0) 

CALL  VECTOR  (SP1 , ANS,SP2,ANS,0) 

Here,  the  first  call  to  vector  is  used  to  obtain  the  left  endpoint  which  is  a 
vertical  vector.  The  second  call  to  vector  is  used  to  connect  the  vertical 
vector  with  the  right  endpoint.  The  vector  now  looks  like  this: 

! _ 

A  call  to  curve  will  plot  the  marker  on  the  right  endpoint  of  the  vector  so 
that  is  is  complete.  An  example  of  such  a  call  is: 

CALL  CURVE  (SP3* YVALU, 1,1) 

SP3  is  obtained  from  a  previous  call  to  MARKPL,  and  YVALU  is  obtained  from  a 
previous  call  to  CURVPL.  The  final  vector  now  looks  like  this: 
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By  using  the  subroutines  described  in  Section  3.4  the  user  can  avoid 
manually  computing  many  of  the  values  needed  to  call  the  DISSPLA  subroutines. 
For  a  program  listing  of  such  calls  see  Appendix  F. 

3.6.  Plot  Generation. 

In  order  to  generate  a  plot  similar  to  the  one  in  Figure  1,  the  following 
procedure  must  be  used: 

a.  Set  up  the  program  as  in  Figure  2.  In  the  control  card  section  make 
sure  that  a  PLFILE  (Plot  file)  is  requested.  A  PLFILE  contains  the 
machine  language,  of  the  information  specified  in  the  program  and 
enables  a  plotting  device  to  produce  a  plot  from  the  catalogued 
PLFILE. 

b.  Run  the  program  in  a  batch  mode  since  a  large  amount  of  core  is 
required  in  use  of  DISSPLA  routines. 

c.  After  the  program  runs,  check  the  day  file  to  see  that  there  are  no 
errors  and  that  a  PLFILE  has  been  created  and  cataloged. 

d.  For  Tektronix  plotting  devices: 

After  the  tektronix  machine  has  been  initialized  and  you  are  logged 
in,  interactively  attach  the  PLFILE  that  appears  in  the  day  file,  as 
follows: 

ATTACH,  PLFILE,  ID=C _ ,  CY= _ 

Then 

ATTACH,  DISPOST 
LIBRARY,  DISPOST 
TEK  300 

The  computer  should  respond  with 

HHiHHHffHHtHHTEKTRONIX  P0ST-PR0CESS0R**«»**«*»»»»»*»»»»»»»»* 

ENTER  DIRECTIVES 

Press  the  space  bar  several  times  and  return.  The  screen  will  flash 
and  then  be  blank.  After  several  seconds  the  plot  will  be  drawn  line 
by  line  and  letter  by  letter  on  the  screen. 

When  the  plotting  is  finished  a  bell  will  sound  and  the  cursor 
will  appear  in  the  top  left  corner.  To  get  back  into  command  mode 
type  any  character  followed  by  a  return.  Do  this  twice.  The  computer 
will  give  the  following  response: 
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END  POST-PROCESSOR 
END  PLOT 
COMMAND- 

Type  this  command  only  when  plotting  has  stopped  and  you  have  received 
a  hard  copy  if  desired . 

e.  For  CALCOMP  plotting  devices. 

The  following  file  must  be  created  as  a  file  or  deck  and  a  7-  or  9- 
track  tape  must  be  provided  for  the  computer. 

(User  Initials)  CM200000,  P4,  MT  1. 

CHARGE,  (Initials)  ,  (Access  Number) _ . 

VSN , TAPE  1 0=SL0T**=TAPENAME . 

REQUEST,  TAPE 10,  HY,  RING. 

ATTACH,  PLFILE,  ID=  (Initials)  ,CY=»». 

ATTACH,  DISPOST. 

LIBRARY,  DISPOST. 

POD936. 

EOR 

EOF 

••numbers  from  your  program. 

Batch  the  above  program  and  submit  a  request  to  the  computer  operator 
for  a  CALCOMP  plot  to  be  produced  from  the  tape  designated  in  the 
statement: 

VSN , TAPE  1 Q=SLOT**=TAPENAME . 

An  example  of  the  complete  program  used  in  Figure  2  and  the  Tektronix 
plot  generated  through  the  PLFILE  produced  by  the  program  is  given  in 
Appendix  B. 

4.0.  USER-DEFINED  POAMS 

The  input  parameters  for  generating  any  POAM  chart  are  of  three  different 
types,  those  that  generate  (1)  a  blank  chart,  (2)  the  statements  that  appear 
on  the  chart,  and  (3)  the  markers  and  vectors  that  appear  on  that  chart. 

4.1.  The  Blank  Chart. 

Before  beginning  the  actual  programming,  the  blank  chart  must  be  designed 
by  hand  on  graph  paper  indicating  the  actual  lengths,  heights,  columns,  and 
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rows  desired.  Label  the  page  diraensionst  the  physical  origin,  and  the  X,Y 
location  of  the  lines  of  the  chart  as  in  Figure  4. 

The  columns  on  the  chart  are  created  by  using  the  VBARS  routine  of 
DISSPLA,  This  routine  draws  vertical  bars.  The  input  parameters  needed  to 
use  VBARS  are  the  bar  width,  bar  height  (designated  by  the  Y  coordinates  of 
the  bars  end  points),  and  the  location  of  the  midpoint  of  the  bar.  The 
following  VBARS  command  is  an  example: 

CALL  VBARS  (X(1),  (Y1(1),  Y2(1),1) 

X(1)  -  This  array  (line  1  of  the  chart  file  Appendix  D,  page  D-1) 

contains  the  X-coordinate  of  the  bar  midpoint  on  the  X-axis. 

Y1 ( 1 )  -  This  array  (line  4  of  the  chart  file)  contains  the  Y-coordinate 

of  an  end  point  of  the  bar. 

Y2( 1 )  -  This  array  (line  5  of  the  chart  file)  contains  the  Y-coordinate 

of  the  other  end  point  of  the  bar. 

1  -  the  number  of  bars 

The  width  of  the  bars  is  set  through  the  routine  BARWID  (lines  17,  20,  22 
and  24  of  the  chart  file).  The  width  of  the  bars  will  remain  the  same  until 
another  call  to  BARWID  is  made. 

The  routine  HBARS  (line  32  of  chart  file)  creates  horizontal  bars.  The 
input  parameters  needed  to  use  this  routine  are  the  bar  length,  the  bar  width 
and  the  bar  midpoint. 

CALL  HBARS  (XI (1 ) ,  X2(1),  Y3(1),  1) 

XI (1)  -  This  array  (line  2  of  the  chart  file)  contains  the  X-coordinate 

of  an  endpoint  of  the  bar. 

X2(1)  -  This  array  (line  6  of  the  chart  file)  contains  the  Y-coordinate 

of  the  other  endpoint  of  the  bar. 

Y3(1)  -  This  array  (line  6  of  the  chart  file)  contains  the  Y-coordinate 

of  the  bar’s  midpoint  along  the  Y  axis. 

1  -  the  number  of  bars  to  be  produced. 

The  routine  BARPAT  (line  14  of  chart  file)  controls  the  type  of  shading 
patterns  that  appear  on  the  bar.  In  the  chart  file  the  bars  required  no 
shading  pattern  thus  IPAT  =  0  in  the  BARPAT  (IPAT)  routine. 

The  routine  CLUSTR  (line  18  of  the  chart  file)  controls  the  gaps  between 
sets  of  bars.  The  arguments  of  the  CLUSTR  routine  are 

NCLSTR  -  Number  of  sets  of  bars  to  be  clustered.  This  number  is 
equivalent  to  the  number  of  calls  to  VBARS  or  HBARS. 
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GAP  -  The  amount  of  gap,  in  inches,  between  individual  bars  within  the 
cluster. 

The  user  is  advised  to  examine  CLUSTR  carefully  before  using  it,  for  numerous 
errors  have  been  encountered.  The  program  does  complete  its  task  but  ignores 
the  CALL  to  CLUSTR  in  the  process.  The  errors  exist  in  the  internal  workings 
of  the  routine  as  it  exists  on  the  computer  system  at  this  site.  Figure  5  is 
an  example  of  what  can  happen  if  CLUSTR  is  incorrectly  used. 

The  Tektronix  and  CALCOMP  plots  accompany  the  chart  file  in  Appendix  E. 

4.2.  Chart  Statements. 

The  input  parameters  required  to  generate  statements  include  the  letter 
height,  the  letter  type,  and  the  X-Y  position  of  the  lower  left  corner  of  the 
first  letter  of  the  statement.  These  parameters  are  discussed  in  the  next 
section,  and  examples  can  be  found  in  Appendix  F  (The  P0AM2  file). 

5.0.  DISSPLA. 

The  Computer  Generated  POAM  Program  (CGPP)  uses  two  types  of  code.  The 
FORTRAN  code  is  used  to  define  variables  and  arrays,  and  to  perform  any  other 
functions  that  can  not  be  done  in  DISSPLA.  The  DISSPLA  code  is  used  to  define 
and  generate  all  the  graphics  used  in  the  POAM. 

DISSPLA  is  a  series  of  220  routines,  each  performing  particular  plotting 
tasks.  Each  routine  may  be  used  only  at  designated  levels  of  DISSPLA. 

5.1.  Levels  of  DISSPLA. 

In  Figure  6,  the  38th  card  calls  the  first  DISSPLA  routine  used  (CALL 
COMPRS).  At  this  point  the  status  of  DISSPLA  is  level  0.  In  this  level  the 
Common  blocks  of  DISSPLA  are  blank  and  device  initializing  occurs. 

The  device  initializing  routine  BGNPL,  card  39,  causes  DISSPLA  to  enter 
level  1,  the  "ready  to  start  Plot"  status  of  DISSPLA.  In  level  1  the  page 
dimensions,  physical  origin,  axis  lengths,  and  step  sizes  are  not  yet  defined. 
CARDS  40  and  41  define  the  page  dimensions  and  physical  origin. 

The  routine  TITLE  (card  43)  causes  DISSPLA  to  enter  level  2.  In  this 
status  the  page  dimensions,  axis  lengths  and  physical  origin  have  been 
defined.  Without  cards  40  and  41  all  these  variables  would  still  be  set  using 
standard  values  by  the  system.  For  instance,  the  page  size  would  be  11"  x 
8  1/2"  at  its  standard  values. 
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Figure  6  -  Example  Program  Deck 
(Showing  levels  of  DISSPLA) 


Cards  44  through  50  designate  or  suppress  numbers  or  tick  marks  that  will 
appear  on  the  X-  and  Y-axes. 

The  routine  GRAF  (card  51)  sets  up  the  basic  linear  axis  and  causes 
DISSPLA  to  enter  level  3.  In  this  level  the  plot  is  fully  determined,  i.e., 
the  parameters  required  in  all  previous  levels  have  been  supplied. 

Cards  52  through  108  write  statements,  symbols  and  vectors  of  different 
lengths  and  heights  in  the  plot  area. 

The  routine  ENDPL  (card  109)  terminates  the  current  plot  and  brings 
DISSPLA  back  to  level  1. 

The  routine  DONEPL  (card  110)  is  used  when  all  plots  have  been  complete. 

In  this  example  there  is  only  one  plot,  but  if  several  plots  had  been 
generated,  DONEPL  would  not  be  called  until  the  final  plot  was  complete. 

DONEPL  terminates  plot  generation  completely  and  closes  the  file  in  use. 

5.2.  DISSPLA  Functions 

In  order  to  create  a  POAM  the  user  should  be  familiar  with  several  DISSPLA 
functions.  These  functions  and  their  arguments  are  discussed  in  the  following 
sections.  Further  information  can  be  obtained  from  a  DISSPLA  reference  manual. 

5.2.1.  MESSAG, 

The  routine  MESSAG  and  similar  routines  like  REALNO,  RLINT,  RLMESS,  etc., 
control  the  writing  of  statements  and  numbers  in  the  plot  area.  The  MESSAG 
routine  places  the  left-hand  corner  of  the  first  character  in  the  statement  at 
a  particular  X-Y  position  on  the  plot.  This  routine  and  its  arguments  are  as 
follows : 

CALL  MESSAG  (LMESS,  IMESS,  XPOS,  YPOS) 

where 

LMESS  -  character  string  (statement  to  be  written) 

IMESS  -  the  number  of  characters  in  the  string 
XPOS  -  X  coordinate  of  string  position 
YPOS  -  Y  coordinate  of  string  position 
The  use  of  100  for  the  argument  IMESS  allows  the  character  string  to  be 
plotted  without  the  $. 


Example 


CALL  MESSAG  ("ID$",  3,  D.O.  0.0) 


produces 


ID$ 


whereas 


CALL  MESSAG  ("ID$",  100,  0.0,  0.0) 


produces 


ID 


5.2.2.  HEIGHT. 

Letter  heights  are  set  at  a  standard  of  0.14  inches.  It  is  advisable  to 
set  letter  heights  at  multiples  of  0.07  inches  for  DISSPLA  statements.  Never¬ 
theless,  any  letter  size  is  acceptable  through  the  use  of  the  routine  HEIGHT 
(lines  1,  4,  8,  11,  13  and  20  of  Appendix  F) . 

Letter  sizes  should  be  neither  too  small  nor  too  large.  The  Tektronix 
produced  charts  in  Figure  7  contain  examples  of  letter  heights  (sizes).  Since 
the  Tektronix  hard  copier  reduces  the  size  of  all  the  copies  it  produces,  the 
CALCOMP  plotter  must  be  used  to  obtain  hard  copies  of  plots  at  their  actual 
dimensions . 

5.2.3.  BASALF  and  MIXALF 

DISSPLA  provides  seven  standard  alphabets  and  an  option  to  construct  one’s 
own  alphabet  (see  the  DISSPLA  manual).  The  standard  alphabets  available  are 


TYPE  of  ALPHABET 

DISSPLA  ABBREVIATION 

Capital  Roman 

"STANDARD” 

Lower  Case  Roman 

"L/CSTD" 

Capital  Greek 

"GREEK" 

Lower  Case  Greek 

"L/CGREEK" 

Capital  Russian 

"RUSSIAN" 

Lower  Case  Russian 

"L/CRUSSN" 

Hebrew 

"HEBREW" 

The  routine  that  determines 

which  of  these  alphabets  will  be  used  in  the 

writing  of  statements  and  numbers  on  a  plot  is  BASALF.  In  the  following 
statement  one  of  the  DISSPLA  abbreviations  is  substituted  for  LALPHA. 
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CALL  BASALF  (LALPHA) 


LETTER  SIZES  (INCHES) 


*  s 

I 
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Every  letter  of  the  plotted  statement  will  be  written  in  the  alphabet 
designated  by  LALPHA. 

In  order  to  plot  a  statement  which  contains  a  mixture  of  upper  and  lower 
case  characters  or  a  mixture  of  totally  different  alphabet  types,  the  routine 
MIXALF  must  be  used.  The  following  statement  will  cause  all  of  the  characters 
enclosed  in  paretheses  in  the  argument  LMESS  in  MESSAGE  to  be  written  in  the 
alphabet  designated  by  LALPHA. 

CALL  MIXALF  (LALPHA) 

Examples  of  the  use  of  these  two  routines  are  given  in  lines  1  through  115  of 
Appendix  Ft  pages  F-1  through  F-5. 

5.3.  Chart  Vectors  and  Markers. 

The  vectors  and  markers  in  the  POAM  are  generated  by  two  DISSPLA  routines, 
VECTOR  and  MARKER.  A  brief  description  of  how  each  is  used  in  the  CGPP  is 
given. 

5.3.1.  Vectors. 

The  VECTOR  routine  draws  a  line  from  (XFROM,  YFROM)  to  (XTO,  YTO)  and 
places  shaded  or  unshaded  arrows  of  different  shapes  and  sizes  at  one,  both  or 
neither  of  the  endpoints  of  the  line.  The  arguments  of  the  VECTOR  routine  are 
CALL  VECTOR  (XFROM,  YFROM,  XTO, YTO,  IVEC) 

XFROM  -  X  value  of  the  originating  point 

YFROM  -  Y  value  of  the  originating  point 

XTO  -  X  value  of  the  point  pointed  to 

YTO  -  Y  value  of  the  point  pointed  to 

IVEC  -  an  integer  describing  the  vector  type  and  size  of  the 
arrowheads  (see  Figure  8). 

Example 

CALL  VECTOR  (0.0,  0.0,  1.0,  1.0,  11) 

f _ ~ 

(0.0,  0.0)  (1.0,  1.0) 

The  VECTOR  routine  is  used  in  Appendix  F,  pages  F-3,  lines  7  and  8,  to 
underline  statements  and  to  draw  horizontal  and  vertical  lines  in  the  fiscal 
year-month  sections  of  the  P0AM1  chart  In  Appendix  F. 

In  order  to  use  VECTOR  effectively  the  exact  X-Y  coordinates  of  the 
locations  in  which  VECTOR  is  to  be  used  must  be  known.  In  the  fiscal  year- 
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month  section  of  the  P0AM1  chart,  the  location  of  each  month  (ONDJFMAMJJAS)  in 
each  fiscal  year  (FY — )  must  be  provided.  Since  it  is  difficult  and  time 
consuming  to  figure  out  these  locations  each  time  the  need  for  VECTOR  is 
encountered,  the  LOCATION  OF  MONTHS  CHART  was  constructed  (see  Figure  9). 

Ordinarily  the  Y  location  in  VECTOR  is  already  known,  so  the  chart  in  Figure  9 

contains  only  the  X  coordinates. 

5.3.2.  MARKERS. 

In  order  to  use  the  routine  MARKER  the  routine  CURVE  must  also  be  used. 

The  MARKER  routine  only  selects,  from  a  group  of  fifteen  types  of  characters, 
the  characters  to  be  used  by  CURVE  and  the  sequence  in  which  these  characters 
are  to  be  used.  The  CURVE  routine  contains  the  following  arguments: 

CALL  CURVE.  (XARAY,  YARAY,  NPNTS,  IMARK) 

XARAY  -  array  holding  X  values  (lines  1  through  5  of  Appendix  F,  page  F-2) 

YARAY  -  array  holding  Y  values  (line  6  of  Appendix  F,  page  F2-1 ) 

NPNTS  -  number  of  points  to  be  plotted  from  these  arrays 
IMARK  -  determines  whether  or  not  the  plotted  points  will  be  connected 
MARKER  is  designed  to  mark  the  points  plotted  by  CURVE.  The  P0AM1  chart 
uses  the  MARKER  and  CURVE  routines  to  indicate  the  completion  dates  of  the 
Milestones  in  the  following  manner: 

FY81  FY82 

ONDJFMAMJJAS  ONDJFMAMJJAS 

! _ ~ 

Initiation  date  Completion  date 

FEB  81  FEB  82 

As  in  the  case  of  the  year-month  locations  required  to  use  the  VECTOR 
routine  efficiently,  a  chart  has  been  constructed  to  give  the  locations  for 
MONTH  MARKERS,  (see  Figure  10).  The  marker  must  be  centered  under  the  month 
to  which  it  belongs,  so  that  the  X,Y  location  of  a  month  is  not  the  same  as 
the  X, Y  location  of  the  marker  that  designates  it. 

5.4.  CURVE  vs  MESSAG. 

It  has  been  observed  that  a  point  measured  from  the  Physical  Origin  by  the 
DISSPLA  routine  CURVE  is  not  the  same  point  when  used  in  the  DISSPLA  routine 
MESSAG.  In  the  example  (Figure  11)  the  same  points  were  used  in  the  CURVE  and 
MESSAG  routines  as  follows: 
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LOCATION  OP  MONTHS 


Location  of  Months  Chart 


LOCATION  OF  MONTH  MARKERS 


Location  of  Month  Markers  Chart 


PLAN  or  RCTION  AND  MILESTONES 


Example  1 


CALL  HESSAG  ("0.0$",  100,  0.20,  5.96) 

CALL  MARKER  (2) 

CALL  CURVE  (XA1(4),  YA1(1),  1,  1) 

These  statements  correspond  to  lines  7,  12,  and  13  of  the  program  listing 
YA1(1)  equals  5.96  from  line  6  of  Figure  12. 

Example  2 

CALL  MESSAG  ("0.1$,"  100,  0.20,  3.03) 

CALL  MARKER  (2) 

ALL  CURVE  (XA2( 12) ,  YA1  (15),  1,  1) 

These  statement  correspond  to  lines  11,  14  and  17  of  the  program  listing  given 
in  Figure  12.  XA2(12)  equals  8.44  from  line  2,  Figure  12,  and  YAK15)  is 

equal  to  3.03  from  line  6,  Figure  12. 

If  Examples  1  and  2  are  compared  with  the  plot  in  Figure  11,  then  from 
these  these  example  statements  there  must  be  differences  in  the  units  of 
measure  (scaling  is  occurring)  used  in  the  Y-coordinates  of  the  CURVE  and 
MESSAG  statements.  The  user  needs  to  be  aware  of  these  differences  in  order 
to  obtain  the  desired  results. 

5.5.  User-Defined  Ticks  (Scaling) 

To  set  up  the  POAM  chart  the  user  calls  two  DISSPLA  subroutines: 

CALL  TITLE  ( LTITLE , ITITLE , LXNAME , IXNAME , LYNAME , IYNAME , XAXIS , YAXIS ) 
(See  the  DISSPLA  pocket  manual  page  8  for  a  description  of  these  arguments) 
CALL  GRAF  (XORIG, XSTEP t XMAX , Y0R IG , YSTE P , YMAX ) 

(See  the  DISSPLA  pocket  manual  page  11  for  a  description  of  these  arguments) 
When  a  call  to  GRAPH  is  made  rather  than  a  call  to  GRAF,  all  the  units 
used  in  plotting  are  in  inches.  When  GRAF  is  used,  however,  the  user  defines 
his/  her  own  ticks  for  the  X  and  Y  axes.  To  detrmine  how  many  inches  per  user 
defined  tick,  the  following  formula  is  provided. 

User-defined  X-AXIS  ticks  =  XAXIS  /  (XMAX  -  XORIG) 

User-defined  Y-AXIS  ticks  -  YAXIS  /  (YMAX  -  YORIG) 

In  the  subroutine  CURVPL  the  YAXIS  ticks  are  1.11  inches  long.  This  is 
because  the  YMAX  =  9.0,  YAXIS  -  10.0  and  the  YORIG  =0.  If  the  user  changes 
either  of  these  he  should  also  change  the  1.11  inches  in  Subroutine  CURVPL  to 
the  correct  user-defined  YAXIS  tick  length. 
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5.6.  ROUTINES 

The  routine  chart  contains  the  names,  arguments,  descriptions,  levels  and 
DISSPLA  manual  locations  of  all  the  routines  used  in  the  POAM  chart  program. 
The  levels  of  DISSPLA,  which  were  explained  in  Section  5.1  of  this  manual,  are 
important  in  the  correct  use  of  any  DISSPLA  routine.  Level  i-j  p/s  or  level 
i-j  indicate  the  level (s)  in  which  the  routine  may  be  used.  Level  i-j  denotes 
that  the  option  routine  may  be  called  while  DISSPLA  is  in  level  i  through  j. 
The  p/s  denotes  that  the  routine  is  of  the  parameter  setting  type. 

6.0.  CONCLUSION 

The  POAM  chart  can  be  used  for  many  applications.  The  user  has  fcue  choice 
of  using  the  frame  that  spans  5  years,  or  of  defining  his  own  to  suit  a  parti¬ 
cular  application.  The  predefined  POAM  chart  is  easier  to  use  and  eliminates 
the  need  to  learn  DISSPLA  in  detail.  If  the  user  needs  to  define  his  own  POAM 
chart,  the  DISSPLA  manual  should  be  read  before  doing  so. 


35 


1 

i 


TABLE  2  -  TABLE  OF  DISSPLA  ROUTINES 


i 

{ MANUAL  LOCATION 

!  ROUTINE 

ARGUMENTS 

i 

i 

i 

i 

LEVEL 

DESCRIPTION 

SECTION 

PAGE 

1 

1 

1 

1 

Specifes  the  shading  pat- 

G2.1 

G2-M 

!  BARPAT 

IPAT 

» 

i 

• 

t 

i 

i 

1-3p/s 

tern  to  be  used  on  vertical 
and  horizontal  bars. 

i 

i 

i 

i 

Specifies  the  width  of  a 

G2.2 

G2-6 

J  BARWID 

BARWTH 

i 

i 

i 

i 

i-3p/s 

particular  bar. 

i 

i 

t 

i 

Specifies  the  type  of  al- 

!  BASALF 

LALPHA 

i 

i 

i 

i 

» 

i 

1-3p/s 

phabet  to  be  used  in  the 
writing  of  words  and  state¬ 
ments  . 

B6.1 

B6-1 

t 

i 

i 

i 

i 

» 

t 

i 

Example:  Roman,  Greek, 
Standard  and  their  upper 
and  lower  cases. 

!  BGNPL 

i 

i 

I BEGIN  I  1 

i 

« 

Initializing  routine. 

AM.  1 

A4-1 

i 

i 

i 

i 

Specifies  the  gap  width 

!  CLUSTR 

NCLSTR,  GAP 

* 

i 

t 

i 

< 

i 

i 

1-p/s 

between  the  number  of  bars 
designated  by  NCLSTR  for 
each  call  to  VBAR  on  HBAR 

G2.3 

G2-8 

i 

i 

i 

i 

Device  initializing  prior 

F3.1 

F-1 

!  COMPRS 

i 

i 

i 

• 

i 

i 

0 

to  the  first  call  to  a 
DISSPLA  subroutine. 

!  CURVE 

XARAY,  YARAY 

l 

1 

1 

1 

3 

Plots  points  with  specified 

AM.M 

AM -7 

NPNTS ,  IMARK 

1 

1 

markers  and  connects  those 

B5.3 

B5-2 

i 

i 

plotted  points  with  a  line, 

B5.M 

B5-2 

• 

i 

t 

i 

if  so  specified. 

B29 

B29-1 

i 

i 

i 

i 

Terminates  plot  generation 

A  1 . 1 

A 1-2 

1  DONEPL 

i 

i 

» 

i 

1 

and  closes  the  file  in  use. 

F3.1 

F3-1 

r 

i 

i 

i 

Terminates  the  current 

1  ENDPL 

i 

I  PLOT 

i 

i 

i 

i 

1 

i 

• 

i 

i 

I 

2-3p/s 

plot,  moves  the  pen  back  to 
it’s  original  position, 
commences  a  new  plot,  and 
brings  DISSPLA  back  to 
level  one. 

AM. 5 

AM-9 
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ROUTINE 


•H8AR3 


•HEIGHT 


•MARKER 


•MESSAG 


MIXALF 


ARGUMENTS 


XORIG,  XSTP,  XMAX, 
YORIG,  YSTR,  YMAX 


X1ARAY,  X2ARAY, 
YARAY,  NPNTS 


LMESS.  IMESS 
XPOS,  YPOS 


LALPHA 


NOBRDR 


PAGE  !  PAGEX,  PAGEY 


Table  2  (Continued) 


DESCRIPTION 


l-3p/s 


1-3p/s 


1-3p/s 


1-3p/s 


I  MANUAL  LOCATION 
I  SECTION  J  PAGE 


This  is  a  primary  graph  set 
up  routine  and  it  takes 
DISSPLA  to  level  three. 


Generates  horizontal  bars. 


Sets  the  height  of  numbers 
and  letter  in  inches.  For 
best  results  use  multiples 
0.07. 


This  subroutine  selects 
from  15  symbols,  the  symbol 
or  sequence  of  symbols  used 
to  mark  the  plot  for  all 
calls  to  curve. 


This  subroutine  will  place 
the  lower  left  hand  corner 
of  the  first  of  the  string 
(statement)  LMESS,  which 
contains  IMESS  (number  of) 
characters,  at  the  position 
XPOS,  YPOS  from  the  current 
physical  origin. 


This  subroutine  will  cause 
all  the  characters 
(letters)  enclosed  in  par¬ 
entheses  in  a  statement  to 
be  written  in  the  alphabet 
designated  by  LALPHA. 


This  will  cause  TITLE  not 
to  draw  a  page  outline 


{This  subroutine  must  be 
{called  before  TITLE  or 
IAREA2D  or  it  will  be  ig- 
Inored.  It's  function  is 
(that  of  setting  the  length 
{and  height  of  the  page  on 
{which  your  plot  will 
{appear. 


B2.1 

A5.2 

B5.6 

E‘20.1 

B5.5 

A5.2.2 

A5.2.1 

B5.1 


I _ I 
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Table  2 (Continued) 


ROUTINE 


ARGUMENTS 


LEVEL 


! MANUAL  LOCATION 


DESCRIPTION 


SECTION 


PHYSOR 

i 

1 

1 

!  XPHYS,  YPHYS 

i 

i 

i 

i 

i 

i 

i 

i 

_ U 

i 

1 

1 

!  ip/s 

i 

t 

* 

i 

i 

i 

• 

i 

! 

1 

IThis  subroutine  instructs 
ITITLE  to  set  the  physical 

1  origin  at  a  position 

J (XPH4S,  4PHYS)  inches  from 
Ithe  lower  left  hand  corner 
'of  the  page. 

i 

» 

■j - 

i  B18.1 

B18-1 

i 

t 

i 

i 

i 

i 

i 

i 

i 

IThis  subroutine  will  re- 

THICRV 

:  ITHICK 

!  1p/s 

{draw  a  curve  (ITHICK) 

i 

1 

i 

i 

'number  of  times.  Each  time 

1  B15.2 

• 

1 

% 

i 

Ithe  curve  is  redrawn  the 

1 

» 

I 

'new  curve  is  slightly  off- 

1 

1 

» 

i 

I  set  from  the  previous 

1 

1 

i 

i 

{curve.  Thus  the  curve 

» 

1 

1 

1 

i 

i 

* 

« 

1  appears  darker  and  thicker. 

i 

i 

TITLE 

1 

1 

!  LTITLE,  ITITLE , 

i 

i 

i  1 

i  1  ~  J 

i 

IThis  subroutine  takes 

1  A  4.2 

A4-1 

!  LXNAME,  IXNAME, 

« 

i 

IDISSPLA  to  level  two.  It 

1  LYNAME,  IYNAME, 

i 

i 

{also  defines  axis  lenghts 

i  XAXIS,  YAXIS 

• 

i 

i 

• 

i 

i 

land  axis  labels. 

i 

»_ 

VBARS 

i 

t 

1  XARAY,  Y1ARAY, 

i 

i 

I  3 

i 

i 

IThis  subroutine  draws 

1  G2 

G2-2 

}  Y2ARAY,  NPNTS 

i 

t 

i 

i 

< 

4 

{vertical  bars. 

i 

i 

PAGE 


VECTOR 


XFROM,  YFROM,  XTO, 
YTO,  IVEC 


This  subroutine  draws 
vectors  from  (XFROM,  YFROM) 
to  (XTO,  YTO)  and  places 
shade  arrows  of  different 
shapes  and  size  at  either 
one  or  both  ends  of  the 
vector . 


B21.1 


B21-1 


XNCNUM 


1-3p/s 


Suppresses  all  levels  of  X 
axis  labelling  or  number¬ 
ing. 


B 1 1.8.3 

C5.1.4 

G4.6 


B 1 1  —  16 

C5-2 

G4-13 


XTICKS 


ITICKS 


1-2p/s 


This  subroutine  is  used  to 
suppress  or  place  as  many 
tick  marks  as  one  desires 
along  the  X  axis. 


811.3 
Bit. 8. 4 
C5.1.2 


YNONUM 


I 

I  1-3p/s 

I 


Suppresses  all  levels  of  Y 
axis  labeling  or  numbering. 


B11-2 

Bit-6 

C5-1 


B11.8.3 

C5.1.4 

G4.6 


B11-16 
C5-2 
G4-1  3 


I 

i 

I  YTICKS 

I 

I 


ITICKS 


j 

!  1-2p/s 

I 

I 


This  subroutine  is  used  to 
suppress  or  place  as  many 
tick  marks  as  one  desires 
along  the  Y  axis. 


B11.3 
Bit. 8. 4 
C5.1.2 


B11-2 

B11-6 

C5-1 
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APPENDIX  A 

SAMPLE  PROGRAM  FOR  POAM  FRAME 


3Q 


CAXX, CM 200000, P4. 

CHARGE , CAXX ,XXXXX99999 . 
REQUEST, PLFILE,*PF. 

FTN. 

ATTACH,  NS  RDC. 

ATTACH, DISSPLA. 

ATTACH, TEK30  . 

LDSET, LIB=DISSPLA/NSRDC/TEK30 . 
LGO . 

CATALOG, PLFILE,ID= CAXX. 

EOR 


C _ MAIN  PROGRAM - 

PROGRAM  POAM( INPUT, OUTPUT, TAPE10,TAPE5= INPUT, TAPE6=0UTPUT) 
DIMENSION  X ( 8 ) ,X1( 1) ,X2( 1) , Y 1 ( 1) ,  Y2( 1) ,Y3( * ) 

1.  DATA  X/0. 375, 2. 85, 5. 5, 6. 625, 7. 875, 9. 125, 10. 375, 11. 625/ 

2.  DATA  X1/0.0/ 

3.  DATA  X2/12 .25/ 

4.  DATA  Y1/0.0/ 

5.  DATA  Y2/7.5/ 

6.  DATA  Y3/6.5/ 

C 


C  CHART  ASSEMBLY  BEGINS  HERE 
C 

CALL  OOMPRS 
CALL  BGNPL(I) 

7.  CALL  PAGE( 13. 0, 11 .0) 

8.  CALL  PHYSOR(0.5,0.5) 

9.  CALL  TITLE ("PLAN  OF  ACTION!" , 100 , 2H  ,2,2H  ,2,12.25,8.5) 

10.  CALL  YNONUM 

11  .  CALL  XNONUM 

12.  CALL  YTICKS(O) 

13.  CALL  XTICKS(O) 

14.  CALL  BARPAT(O) 

15.  CALL  GRAFCO.O, 1 .0, 12.25,0.0, 1 .0,7.5) 

16.  CALL  THICRV(3) 

17.  CALL  BARWID(0. 75) 

18.  CALL  CLUSTR( 6. 0, 0. 0) 

19.  CALL  VBARS(X( 1 ) ,Y1 ( 1 ) ,Y2( 1) , 1 ) 

20.  CALL  BARWID(4.25) 

21.  CALL  VBARS(X(2) ,Y1 ( 1 ) ,Y2( 1 ) , 1 ) 

22.  CALL  BARWID(1 .0) 

23.  CALL  VBARS(X( 3) ,Y1(1),Y2(1),1) 

24.  CALL  BARWID(1 .25) 

25.  CALL  VBARS(X(4) ,Y1( 1) ,Y2( 1) ,1) 

26.  CALL  VBARS(X(5) ,Y1( 1) ,Y2( 1) , 1) 

27.  CALL  VBARS(X(6) ,Y1 ( 1) ,Y2( 1 ) , 1 ) 

28.  CALL  VBARS(X(7) ,Y1(1),Y2(1),1) 

29.  CALL  VBARS(X(8) ,Y1( 1) ,Y2( 1) ,1) 

30.  CALL  BARWID(0. 05 ) 

31.  CALL  THICRV( 5) 

32.  CALL  HBARS(X1( 1) ,X2( 1) ,Y3( 1) , 1) 

C 


1 
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CHART  HEADINGS 


CALL  ENDPL(I) 
CALL  DCNEPL 
END 


> 


APPENDIX  B 

SAMPLE  PROGRAM  AND  PLOT  OF  A  USER  DEFINED  FRAME 
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CAXX, CM  200000, P4. 

CHARGE, CAXX .XXXXX99999 . 

REQUEST ,  PLF  ILE ,  »P  F . 

FTN. 

ATTACH,  NS  RDC. 

ATTACH,  DISSPLA. 

ATTACH, TEK30 . 

LDSET,LIB=DISSPLA/NSRDC/TEK30 . 

LG 0. 

CATAL  00 ,  PLF  ILE ,  ID= CAXX . 

EOR 

C - - - MAIN  PROGRAM - 

PROGRAM  PAM1( INPUT, OUTPUT, TAPE10,TAPE5=INPUT,TAPE6=0UTPUT) 

DIMENSION  X(8),X1(1),X2(1),Y1(1),Y2(1),Y3(1) 

DIMENSION  XA1 ( 12) ,XA2( 12) ,XA3( 12) ,XA4( 12) ,XA5( 12) ,YA1 ( 17) 

DATA  X  /O. 375, 2. 85, 5. 5, 6. 625, 7. 875, 9. 125, 10. 375, 11 .625/ 

DATA  XI  /O.O/ 

DATA  X2  /12.25/ 

DATA  Y1  /O.O/ 

DATA  Y2  /7.2/ 

DATA  Y3  /6.5/ 

DATA  XA1  /6.1 1,6.21,6.31,6.41,6.51,6.61,6.69,6.79,6.89,6.99,7.09,7.19/ 
DATA  XA2  /7. 36, 7. 46, 7. 56, 7. 66, 7. 76, 7. 86, 7. 94, 8. 04, 8. 14, 8. 24, 8. 34, 8. 44/ 
DATA  XA3  /8. 61, 8. 71, 8. 81, 8. 91, 9. 01, 9.1 1,9.1 9,9.29,9.39,9.49,9.59,9.69/ 
DATA  XA4  /9. 86, 9. 96, 10.06 , 10.1 6, 10.26, 10. 36, 10.44, 10.54, 10.64, 10.74, 
*10.84,10.94/ 

DATA  XA5  /1 1.1  1,11  .21,11  .31,11 .41,11  .51,11  .61,11  .69,11  .79,11  .89,11  .99, 
•12.09,12.19/ 

DATA  YA1  /5. 96, 5. 77, 5. 6, 5. 42, 5. 23, 4. 63, 4. 45, 4. 28, 4. 09, 3. 92, 3. 74, 3. 57, 
•3.38,3.21,3.03,2.86,2.68/ 

C 

C  CHART  ASSEMBLY  BEGINS  HERE 
C 

CALL  OOMPRS 
CALL  BGNPL(I) 

CALL  PAGE( 13.0,11  .0) 

CALL  PHYSOR(O.5,0.5) 

CALL  NOBRDR 

CALL  TITLE (2H  ,2,2H  ,2,2H  ,2,12.25,8.5) 

CALL  HEIGHT(0.21 ) 

CALL  MESSAG("PLAN  OF  ACTION  AND  MILESTONES* ",  100, 3. 5, 8. 4) 

CALL  YNONUM 
CALL  XN0NU1 
CALL  YTICKS(O) 

CALL  XTICKS(O) 

CALL  BARPAT(O) 

CALL  GRAF( 0.0,1 .0,12.25,0.0, 1 .0,7.5) 

CALL  THICRV(3) 

CALL  BARWIDC0.75) 

CALL  CLUSTR(6. 0,0.0) 

CALL  VBARS(X( 1),Y1(1),Y2(1),1) 

CALL  BARWID(4.25) 


43 


L 


\ 


CALL  VBARS(X(2),Y1(1),Y2(1),1) 

CALL  BARWID(I.O) 

CALL  VBARS(X(3),Y1(1),Y2(1),1) 

CALL  BARWID( 1 .25) 

CALL  VBARS(X(4),Y1(1),Y2(1),1) 

CALL  VBARS(X(5),Y1(1),Y2(1),1) 

CALL  VBARS(X(6),Y1(1),Y2(1),1) 

CALL  VBARS(X(7),Y1(1),Y2(1),1) 

CALL  VBARS(X(8) ,Y1( 1) ,Y2( 1) , 1) 

CALL  BARWID(0. 05 ) 

CALL  THICRV(5) 

CALL  HBARS(X1( 1) ,X2( 1) ,Y3( 1) ,  1) 

CHART  LADINGS 

CALL  HEIGHT (0.10) 

CALL  BASALF( "STANDARD") 

CALL  MESSAG(''ACTION$",  100,0.08,.  7.8) 

CALL  HEIGHT (0.10) 

CALL  MESSAG("RESPONSIBLE$ ",100, 5. 05, 7. 8) 

CALL  HEIGHT(0. 1 5) 

CALL  MESSAGC'FY  81  $" , 1 00 ,6. 3,7 . 8) 

CALL  MESSAGC'FY  82$",  100,7.6,7.8) 

CALL  MESSAGC'FY  83$",  100,8.9,7.8) 

CALL  MESSAGC'FY  84$", 100, 10.1  ,7.8) 

CALL  MESSAGC'FY  85$" ,  100 , 1 1  .4,7.8) 

CALL  MESSAG( "DESCR IPTION$ " , 100,2.0,7.5) 

CALL  MESSAG("ID$", 100,0.20,7.51 
CALL  HEIGHT(O.IO) 

CALL  MESSAG("OFFICIAL$", 100,5.2,7.5) 

CALL  HEIGHT(O.IO) 

CALL  MESSAG("ONDJFMAMJJAS$", 100,6.12,7.5) 

CALL  ME SSAG ( " ONDJFMAMJ JAS$", 100,7.37,7.5) 

CALL  MESSAG( "ONDJFMAMJ JAS$", 100,8.62,7.5) 

CALL  MESSAG("ONDJFMAMJJAS$",10O,9.87,7.5) 

CALL  MESSAG('fONDJFMAMJJAS$",  100, 11  .12,7.5) 

CHART  INFORMATION 

CALL  BASALF ( "L/CSTD" ) 

CALL  MIXALF( "STANDARD") 

CALL  MESSAG("0.0$, 100.0.20,7.0) 

CALL  MESSAGC (MILESTONE  0  -  MISSION  ANAL YSLS /PHD JECT  INITIATION$" , 

•100,0.80,7.0) 

CALL  VECTOR( 0 . 80 , 6 . 95 , 4 . 95 , 6 . 95 , 0 ) 

CALL  MESSAG("0.1  $",100,0.20,6.7) 

CALL  MESSAGC' (D)EVELOPMENT  OF  (MENS) $", 100 ,0. 80 , 6.7) 

CALL  MESSAG("(NPPSMD)$", 100,5.2,6.7) 

CALL  MARKER( 9) 

CALL  CURVE(XA1 (4), YA 1(1), 1,1) 

CALL  ENDPL(O) 

CALL  DONEPL 
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CA XX, CM 200000,  P4. 

CHA  R® ,  CA  XX  ,XXXXX  99999 . 

REQUEST,  PLFILE ,  *PF. 

FTN. 

ATTACH,  MS RDC. 

ATTA(H,DISS>LA. 

ATTACH,  TEK30. 

LDSET,  LIB=  USSP  LA/NS  RDC/TEK30. 

LCD. 

CATALOG , PLFILE ,  ID=  CAXX . 

EOR 

C - MAIN  ppoCSAM - 

PROGRAM  P  AM2(  INPUT,  OUTPUT,  TAP  El  0,  TAP  E5  =INP  UT,  TAP  E6  =OUTPUT) 
DlfCNSICN  X(7)  ,X1(  1)  ,X2(  1)  ,X3(  1)  ,X4(  1) 

DlfEMSICN  Y1(  1)  ,Y2(  1)  ,Y3(  1)  ,Y4(  1)  ,Y5(  1) 

DATA  X/0.  375,2.85,5.5,6.62  5,7.875,9.12  5,  10.  375/ 

DATA  X1/0.0/ 

DATA  X2/11.00/ 

DATA  X3/6.O/ 

DATA  X4/8.50/ 

DATA  Y  1/0.0/ 

DATA  Y2/7.2/ 

DATA  Y3/6.5/ 

DATA  Y4/6.8/ 

DATA  Y5/7.0/ 

C 

C  CHART  ASSEMBLY  BEGINS  (ERE 
C 

CALL  OOMPRS 
CALL  B«PL(  1) 

CALL  PA® (  13.0,  11.0) 

CALL  PHB0R(0.5,0.5) 

CALL  TITLE  ("PLAN  OF  ACTICN$  ",  100,  2H  ,  2,  2H  ,2,11.0,8.5) 
CALL  YNCNUM 
CALL  WCNIW 
CALL  YTICKS(O) 

CALL  XTICKS(O) 

CALL  BARPAT(O) 

CALL  GRAF(  0.  0,  1.0,  11 .0,0.  0, 1.0,7.  5) 

CALL  THICRV(3) 

CALL  BARHID(0.  75) 

CALL  CLUSTR(6.0,0.  0) 

CALL  VBARS(X(1)  ,Y1(  1)  ,Y2(  1)  ,1) 

CALL  BARWID(4. 25) 

CALL  1»ARS(X(2)  ,Y1(  1)  ,Y2(  1)  ,1) 

CALL  BARWID(I.O) 

CALL  1BARS(X(3)  ,Y  1(  1)  ,Y2(  1)  ,  1) 

CALL  BARMID(  1 .25) 

CALL  VBARS(X(4)  ,Y1(  1)  ,Y4(  1)  ,1) 

CALL  VBARS(X(5)  ,Y  1(  1)  ,Y4(  1)  ,  1) 

CALL  VBARS(X(6)  ,Y1(  1)  ,Y4(  1)  ,1) 

CALL  BARVCDCO.  05) 
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CALL  THICRVC  5) 

CALL  HBARS(X1(  1)  ,X2(  1)  ,Y3(  1)  ,1) 

CALL  BARWID(0.  45) 

CALL  CLUSTR(  2.  0,  0.  0) 

CALL  HBARS(X3(  1)  ,X4(  1)  ,Y5(  1)  ,  1) 

CALL  HBARS(X4(  1)  ,X2(  1)  ,Y5(  1)  ,1) 

C 

C  CHART  HEADINGS 
C 

1.  CALL  HEI®T(  0.1  0) 

2.  CALL  BASALF("STANDARiy  ) 

3.  CALL  NESSAG("ACTI®$",  100,0.  08,  7.  8) 

4.  CALL  HEI®T(  0.1  0) 

5.  CALL  NESSAG("RESP®SIBLE$",  100,  5.  05, 7.  8) 

6.  CALL  M5SSAG("INITIAT ICN  DATES  $",100,6.5,7.8) 

7.  CALL  NESS  AG("C0MP  LET  ICN  DATES  $",  100  ,  9.  00  ,  7.8) 

8.  CALL  HEI®T(  0.1  5) 

9.  CALL  NESSAG("DESCftIPTI®$  ",  100,  2. 0,  7.  5) 

10.  CALL  NE  SSAG("I  D$  " ,  100,  0.  20,  7.  5) 

11.  CALL  HEI®T(  0.1  0) 

12.  CALL  M5SSAG("0FFICIAL$  ",  100,  5.  2,  7.  5) 

13.  CALL  HEI®T(  0.1  0) 

14.  CALL  NESSAG("ESTIMATED$  ",  100,  6.2,  7.  5) 

15.  CALL  NESSAG("ACTUAL$  ",  100,  7.  47,  7.  5) 

16.  CALL  NESSAG("ESTIMATED$  " ,  100,  8.  7»  7.  5) 

CALL  M5SSAG("A  CTUAL$" ,  100,  9.  97,  7.  5) 

C 

C  ®ART  INFORMATION 

C 

17.  CALL  BASALF("L/CSTD"  ) 

18.  CALL  MI XALF( "STANDARD"  ) 

19.  CALL  HEI®T(  0.  095) 

20.  CALL  NESSAG("0.0$", 100  ,  0.20  ,  7.0) 

21.  CALL  ME SSAG("  (MILESTONE  0-  MISSI®  ANAL  YS IS  /P ROJE CT  INITIATI® 

*)$",  100,0.  80,7.  0) 

22.  CALL  VECT0R(  0.  80,6.  95,4.  95,6.  95,0) 

23.  CALL  NESSAGC'0.1  $",100,0.  20,6.7) 

24.  CALL  NESSAGC  (D  )  EV  ELOP  MS  NT  OF  (MENS)  $",  100  ,  0.  80, 6.  7) 

25.  CALL  NESSAGC"  (NPPSM)  )$",  100,  5.2,  6.  7) 

26.  CALL  M5SSAG("0. 2 $",  100,  0.  20,  6.  5) 

27.  CALL  fESSAGO'  (E)  STAB  LIS  H  (P)ROJECT  (0  )FFICE$  " ,  100  ,  0.  80 , 6.  5) 

28.  CALL  NESSAG("  (NPPSM)  )$",  100,  5.2,  6.5) 

29.  CALL  NESSAG("0.  3$"»  100,  0.  20,  6.  3) 

30.  CALL  NESSAG("  (A)  PPQINT  (PM),  (  ADP)  ,AND  (T)  EIE  ODMMUNI  CAT  I®S  (M)APS$" 
*,  100  ,  0.  80,6.  3) 

31.  CALL  fESSAG("  (NPPSM)  )$",  100,  5.  2»  6.  3) 

32.  CALL  NESSAG("0.4$",  100  ,  0.20  ,  6.1  ) 

33.  CALL  NESSAG("  (D)EVELOP  (  P)  LAN  OF  (A)CTICN  AND  (M  )  ILE  STCNE  S$  " ,  1 00 
•,0.80,6.1) 

34.  CALL  M5SSAG("  (DTfBRDC)$",  100,  5.2,  6.1 ) 

35.  CALL  fESSAG("0. 5$"»  100,  0.  20,  5.  9) 

CALL  NESSAG("  (A)PPRDVAL  OF  (MENS)  $",  100,  0.  80 , 5.  9) 
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.  CALL  NESSAGC  (NAVDAC)$",  100,  5.2,  6.7) 

CALL  NESSAGCl  .0$",  100,  0.  20,  5.  5) 

39.  CALL  NESSAGC  (MILESTONE  I  -  CONCEPT  DEVELOP  NT  PHASE 
•)  $",100,0.00, 5. 5) 

40.  CALL  VECT0R(  0.  80,5.  45,4  .  35,5.  43,  0) 

CALL  NESSAGC  1  .1  $" ,  100,  0.  20,  5.  2) 

.  CALL  NESSAGC  (S)UBMIT  (POM)  (R  )EQUIRENENT/(PIF)  (P)ROJECT$" 

.  *,  100  ,  0.80,5.2) 

.  CALL  NESSAGC  (NPPSNO  )$",  100,  5.  2,  5. 2) 

CALL  NESSAGCl  .2$",  100,  0.20,  5.  0) 

45.  CALL  NESSAGC  (C)ON DUCT  (G)ENERAL  ( FUNCTIONAL  (R  jEOJIRENENtfS 
•(A)  NAL  ISIS$  ",  100,  0.  80 , 5.  0) 

CALL  NESSAGC  (DTNBRDC)$",  100,  5.  2,  5.  0) 

.  CALL  NESSAGCl  .  3$" ,  100,  0.  20,  4.  8) 

CALL  NESSAGC  (D  )EFINE  (P)ILOr  (  E)XP ERIhENTS/(D  )ENONS TRATICNS$" 

*,  100  ,  0.  80,4.  8) 

CALL  NESSAGC  (DTNERDC)$",  100,  5.  2,  4.  8) 

50.  CALL  MSSSAGC'I  .4$",  100  ,  0.  20,4.6) 

CALL  NESS  AG  ("  (D  )EVELOP  (  PRELIMINARY  (E)CONOMIC  (A)  NALTSIS$" 

*,  100  ,  0.  80,4.  6) 

CALL  NESSAGC  (DTNf?RDC)$",  100,  5.2,  4.  6) 

CALL  NESSAGCl  .5$", 100  ,  0.  20  ,  4.  4) 

.  CALL  NESSAGC  (D)EVELOP  (  PRELIMINARY  (B)UDCET  AND  (C)OST  (  E)  STIMATES$  " 
*,  100,  0.  80,4.  4) 

55.  CALL  NESS  AG  ("  (DTN5RDC)$",  100,  5. 2,  4.  4) 

.  CALL  NESSAGCl  .6$", 100,0.  20,4.2) 

CALL  NESSAGC  (P)REPARE  (P)ROJECT  (M )ANAGMENT  (P)LANS$" 

*,  100  ,  0.  80,4.2) 

CALL  NESSAGC  (DTNERDC)$",  100,  5.  2,  4.  2) 

CALL  NESSAGCl. 7$", 100, 0.20, 4.  0) 

60.  CALL  NESSAGC  (P)REPARE  (R)ESOORCES  (  A)  NNE X$  " 

*,  100  ,  0.80,4  .  0) 

CALL  NESSAGC  (DTNSRDC)$",  100,  5.2,  4.0) 

CALL  NESSAGCl. 8$", 100  ,  0.20  ,  3.8) 

.  CALL  NESSAGC  (P)  REP  ARE  (  PRELIMINARY  (A)COJISmCN  (  S)  TRATEGY 
*(  A) NNE X$", 100,  0.  80, 3-  8) 

CALL  NESSAGC  (DTNBRDC)$" ,  100,  5.  2,  3.  8) 

65.  CALL  NESSAGCl  .9$",  100,  0.20,  3- 6) 

CALL  NESSAGC  (P)REP  ARE  (S)UPPORT  (  P)  LAN  (A)NNEX$" 

*,  100  ,  0.80,3.6) 

.  CALL  NESSAGC  (DTNERDC)$",  100,  5.2,  3.  6) 

CALL  NESSAGCl  .10$",  100,  0.20,  3.  4) 

CALL  NESSAGC  (F)ORVRRD  (SEP)  1  FOR  (R  )EVIEW  $ " 

*,  100,0.80,3*  4) 

70.  CALL  NESSAGC  (DTN5RDC)$",  100,  5.  2,  3.  4) 

CALL  NESSAGCl. 11  $",100  ,  0.20  ,  3.  2) 

.  CALL  NESSAGC  (R)EVIEW  (SEP)  1  $" 

*,  100  ,  0.80,3.2) 

CALL  NESSAGC  (NPPSNO  )$",  100,  5.  2,  3«  2) 

.  CALL  NESSAGCl  .12  $",100,  0.20,  3.  0) 

75.  CALL  NESSAGC  (A)  PPRDVE  (SEP)  1  $" 

*,  100  ,  0.80,3.  0) 
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CALL  reSSAG("(NAVDAC)$",100,5.2,  3.  0) 
DATE  MANIPULATIONS 

CALL  hESSAG(" (JAN  8l ) $",100, 9. 97, 6. 7) 
CALL  M:SSAG("(FEB  81)  $",  100,  9.  97,  6.  5) 
CALL  M5SSAGC  (FEB  81 )  $",  100,  9.  97,  6.  3) 
80.  CALL  PESSAG("(FEB  81)  $",100,8.20,  6.1) 
CALL  tESSAGCUFEB  81)  $",100  ,  7.  47,6.1  ) 
CALL  reSSAG("(FEB  81 )  $" ,  100,  8.  70,  6.1  ) 
CALL  M:SSAG("(FEB  81)  $",100,  9.  97,  6.1) 
CALL  MSSSAG("  (AP R  8l )  $",  100,  9.  97,  5.  9) 
85.  CALL  M:SSAG("(OCT  8 1 )  $",  100,  9.  97,  5.  7) 
CALL  M1SSAG("(MAR  8l )  $",  100,  6. 20,  5.  0) 
CALL  PESSAGC  (MAR  8l )  $",  100  ,  7.  47,  5.  0) 
CALL  IESSAG("(FEB  82)$",  100  ,  3.  70  ,  5.  0) 
CALL  MCSSAG("  (AP  R  8 1  )$”,  100,  6. 20,  4.  8) 
90.  CALL  f£SSAG("(APR  8l)$",  100,  7.  47,4.  8) 
CALL  t£SSAG("(DEC  81)  $",  100,  8.  70,4.8) 
CALL  1£SSAG("(JIK  81 )  $",  100,  6.20,  9.  6) 
CALL  MISSAG("  ( JIK  8l )  $",  100,  7.  47,  4.  6) 
CALL  1ESSAG("(FEB  82)  $",100,  8.  70,4.  6) 
95.  CALL  M:SSAG("  (JIK  81 )  $",  100,  6.20,  4.  4) 
CALL  !ESSAG("(J1K  81)  $",100,  7.  47,  4.  4) 
CALL  f£SSAG("(FEB  82)  $",100  ,  8.  70  ,  4.  4) 
.  CALL  MvSSAGf"  (DEC  8l )  $",  100  ,  6.  20  ,  4.  2) 
CALL  NESSAG("  (JAN  82)  $",  100,  7.  47,  4.  2) 
100.  CALL  M:SSAG("(FEB  82)  $",100,  8.  70,4.  2) 
CALL  f£SSAG("(DEC  81 )  $",  100,  6.20,  4.  0) 
CALL  NESSAG("  (DEC  8 1 )  $" ,  100,  7.  47,  4.  0) 
CALL  MISS  AG  ("  (FEB  82)  $",  100  ,  8.  70,  4.  0) 
.  CALL  MSSSAGO'  (DEC  8l )  $",  100,  6.  20,  3.  8) 
105.  CALL  NESSAG("  (FEB  82 )  $" ,  100,  8.  70,  3.  8) 
CALL  MiSSAG("(DEC  8l)$», 100  ,  6.20  ,  3.  8) 
CALL  NESSAGC'fJAN  82)$",  100,7.  47,  3.  6) 
CALL  NE SSAG("  ( FEB  82 )  $" ,  100  ,  8.  70  ,  3.  6) 
.  CALL  fESSAG("  (APP  82)  $",  100  ,  6.20  ,  3.  4) 
110.  CALL  f€SSAG("(APR  82)  $",  100,  8.  70,  3.  4) 
CALL  NESSAG("(APR  82 )  $" ,  100  ,  6.  20  ,  3- 2) 
CALL  M!SSAG(»  (MA  Y  82)  $",  100  ,  8.  70  ,  3.  2) 
CALL  f£SSAG("(MAY  82 )  $" ,  1 00  ,  6. 20  ,  3.  0) 
CALL  fESSAG("(J1K  82)  $",  100,  8.  70,  3.  0) 
115.  CALL  ENDPL(  1) 

CALL  DCNEPL 
END 
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CA  XX ,  CM  200000,  P4. 

CHA  ROE  ,CAXX  ,X  XXXX  99999 . 

REQUEST,  PLFILE,*F. 

FTN. 

ATTACH,  NS  RDC. 

ATTACH,  DISSPLA. 

ATTACH,  TEK30. 

LDSET,  L1B=  UISSPLA/NSRDO'TEK30. 

LCD. 

CATALOG,PLFILE,  ID=CAXX. 

EOF 

_ _ MAIN  PROGRAM - 

PROGRAM  PAM1(  INPUT,  OUTPUT,  TAP  El  0,  TAP  E6  =  INPUT,  TAP  E6  =OOTP  OT ) 
DIffiNSICN  X(8)  ,X1(  1)  ,X2(  1)  ,Y  1(  1)  ,Y2(  1)  ,Y3(  D 
DI(€ICICN  XA1(  12)  ,XA2(  12)  ,XA3(  12)  ,XA4(  12)  ,XA5(  12)  ,YA1(  17) 
DATA  X  /O.  375,  2.85  ,  5. 5  ,  6.  62  5,  7.  87  5,  9.12  5,  10.  375,  11  .62  5/ 

DATA  XI  /O.O/ 

DATA  X2  /12.25/ 

DATA  Y1  /O.O/ 

DATA  Y2  /7 .2/ 

DATA  Y3  /6. 5/ 

1.  DATA  XA1  /6.1  1,6.21,6.  31,6.  41,6. 51,6. 61,6.  69, 6.  79,6.  89,6. 99 

2.  DATA  XA2  /7 •  36, 7.  46, 7. 56 , 7. 66,  7.  76,  7.  86, 7. 94, 8.  04,  8. 1 4,  8.24 

3.  DATA  XA3  /8. 61, 8.  71, 8.81, 8.  91, 9.01, 9.1  1,9.19,9.29,9.39,9.4? 

4.  DATA  XA4  /9 . 86,  9. 96,  10.  06 , 10. 1  6,  10. 26,  10.  36,  10.  44,  10.  54,  10. 

•  1  0#  84  1 0*  94  / 

5.  DATA  XA5  /1  1 .1  1,  11  .21,  11 .31,  11  .41,  11  .51,  11  .61,  11  .69,  11  .79, ' 
*12.09,12.19/ 

6.  DATA  YA1  /5  .  96, 5. 77, 5.  6, 5.  42, 5. 23 , 4.  63, 4.  45, 4. 28, 4.  09,  3*  92, 

•3  .  38  ,  3.21,  3.  03,  2.86,2.68/ 

C 

C  CHART  ASSEffiLY  BEGINS  HERE 
C 

CALL  CDMPRS 
CALL  BCHPLC  1) 

CALL  PAOEC  13.  0,  11  .0) 

CALL  PHBORCO.  5,0.  5) 

CALL  TITLE  ("PLAN  OF  ACTICH  AND  MILESTONE  S$  ",  100,  2H  ,  2,  2H 
CALL  JNCNUM 
CALL  XNCNUM 
CALL  YTICKS(O) 

CALL  XriCKS(O) 

CALL  BARPAT(O) 

CALL  ®AF(  0.0,  1.0,  12.25,0.0,  1.0,  7.  5) 

CALL  THICRV(  3) 

CALL  BARWD(0.  75) 

CALL  aiBTR(6.  0,0.  0) 

CALL  VBARS(X(1)  ,Y  1(  1)  ,Y2(  1)  ,1) 

CALL  BARWID(4.  25) 

CALL  1BARS(X(2)  ,Y1(  1),Y2(1),1) 

CALL  BARHID(I.O) 

CALL  \BARS(X(3)  ,Y1(  1),Y2(1),1) 


,7.  09,7.19/ 
,8.  34,8.  44/ 
i,9.59,  9.  69/ 
64,  10.74, 

II  .89, 11  .99, 

3.74  ,  3.  57, 


,2,  12.25,8.5) 
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CALL  BARWID(  1 .25) 

CALL  VBARS(X(4)  ,Y  1(  1)  ,Y2(  1)  ,1) 

CALL  \BARS(X(5)  ,Y  1(  1)  ,Y  2(  1)  ,1) 

CALL  VBARSCX  (6)  ,Y  1(  1),Y2(1),1) 

CALL  VBARS(X(7)  ,Y1(  1),Y2(1),1) 

CALL  \IBARS(X  (8)  ,Y  1(  1)  ,Y2(  1)  ,1) 

CALL  BARWID(0.  05 ) 

CALL  THICRV(  5) 

CALL  HBARS( X  1(  1)  ,X2(  1)  ,Y  3(  1)  ,1) 

CHART  fEADINCB 

CALL  HE  I  (ST  (  0. 1  0) 

CALL  BAS ALF( "STANDARD1  ) 

CALL  reSSAGC ACTION*  ",100,0.  08,.  7  .  8) 

CALL  HEI®T(  0.1  0) 

CALL  M5SSAG("RESP  CNSIBLE$  ",  100,  5.  C5 , 7.  8) 

CALL  HEIGHT(  0.1  5) 

CALL  reSSAGO'FY  81  ,  100,  6.  3,  7.  8) 

CALL  NESSAGCFY  82  $",  100,  7.  6,  7.  8) 

CALL  RE  SSAG("F  Y  83  $",  100,  8.  9,  7.  8) 

CALL  hESSAG("FY  84  $",  100,  10.1 , 7.  8) 

CALL  ^SSAGC'FY  85 $",  100,  11  .4,  7.  8) 

CALL  IESSAG("DESCBIPTICN$  ",  100,  2.  0,  7.  5) 

CALL  reSSAG("ID$",  100  ,  0.20  ,  7.5) 

CALL  HEICHTC  0.10) 

CALL  reSSAG("OFFICIAL$  " ,  100,  5.  2,  7.  5) 

CALL  HE  I GHT (  0.10) 

CALL  NESSAG("ONDJF  MVMJ  JAS$  ",  100,  6. 12 , 7.  5) 

CALL  hESSAGC  ONDJF  MAMJ  JAS$  ",  100,  7.  37,  7.  5) 

CALL  NESSAG("ONDJF  MAMJ  JAS$  ",  100  ,  8.  62, 7.  5) 

CALL  fESSAGO'ONDJF  MIMJJAS*  ",  100  ,  9.  87,  7.  5) 

CALL  fESSAGO'ONDJF MIMJJAS$  ",  100,  11.12,7.5) 

CHART  IN  FORMATION 

CALL  BASALF("L/CSTD"  ) 

CAL  L  MI  XALF  ( "S  TA NDARI7*  ) 

CALL  HE  I  (ST  (  0.  096) 

CALL  fESSAGO’O.  0$" , 100, 0. 20, 7.  0) 

CALL  fE SS AG ("  (MILESTONE (  0)-  MISSION  ANAL  YS IS /B ROJE CT  INITIATION", 

&  100,0.  80, 7.  0) 

CALL  VECTORCO.  83,6.  96,4.95,6.  95,0) 

CALL  MESSAGC'0.1  $",100  ,  0.20  ,  6.7) 

CALL  fESSAGf"  (D)EVELOPMENT  OF  (MENS)  $" ,  100,  0.  80 , 6.  7) 

CALL  !ESSAG("  (NPPSM3  )$",  100,  5.  2,  6.  7) 

CALL  MARKER(2) 

CALL  CIFV E(XA1  (  4)  ,YA1  (  1)  ,1,  1) 

CALL  MSSSAG("0.2$",  100, 0.20  ,  6.5) 

CALL  fESSAGO*  (E)STABLEH  (P)ROJECT  (  0)  FFICE$  ",  100,  0.  80 , 6.  5) 

CALL  fESSAGC"  (NPPSM3  ) $",  100,  5.  2,  6.5) 

CALL  MARKER(  2) 
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CALL  CIRVE(XA1(5)  ,YA1(2)  ,  1,  1) 

CALL  *®SSAG("0.  3*",  100, 0. 20, 6.  3) 

CALL  M2SSAG("  (A)  PPCHNT  (PM),  (ADP)'  AND  (T)  EIE  (DMMUNI  CAT  ICNS  (MARS)*", 
4100,0.80,6.3) 

CALL  f€SSAG("  (NPPSM)  )*",  100,  5.  2,  6.  3) 

CALL  MARKS  R(  2) 

CALL  CIRVE(XA1  (  5)  ,YA1  (  3)  »  1»  D 
CALL  >ESSAG("0.  4*",100  ,  0.20  ,  6.1  ) 

CALL  f£SSAG("  (D  )EV  ELOP  (  P)  LAN  OF  (A)CTICN  AND  (M  )ILE STONES*  ", 

4100,0.  80,6.1  ) 

CALL  >ESSAG("  (DTNSRDC)*",  100,  5.  2,  6.1 ) 

CALL  MIRH*!R(  2) 

CALL  CIRVE(XA1(5)  ,YA1(4)  ,1,  1) 

CALL  f£SSAG("0.5*",100,0.20,5.  9) 

CALL  M5SSAG("  (A)  PPROV IL  OF  (MENS)  *",  100,  0.  83 , 5.  9) 

CfLL  fESSAG("  (NAVDAC)*",  100,5.2,  5.  9) 

CALL  MVRKER(2) 

CALL  CIRVE(XA1(7)  ,YA1(5)  ,1,  D 
CALL  MSSSAG("  1  .  0$" ,  100,  0.  20,  5.  5) 

CALL  l*SSAG("  (MILESTONE)  1  -  (CONCEPT  EEV  ELOP  MS  NT  PHASE*  ",  100,  0.  80 , 5.  5) 
CALL  VECTOR(  0.  80 , 5.  45 , 4.  35,  5.  & ,  0) 

CALL  f£SSAG("1  .1  $",100  ,  0.20  ,  5.2) 

CALL  f£SSAG("  (S)UBMIT  (POM)  (R  )EQJIREfENr/(PIE)  (P)ROJE CTS$ " , 

4  100,0.  80,5.2) 

CALL  f£SSAG("(NPPSMO)*",100,5.2,  5.2) 

CALL  MIRKER(2) 

CALL  CWVEKXAK  1)  ,YA1(6)  ,  1,  1) 

CALL  t£SSAG(n  1  .2$" ,  100,  0.  20,  5.  0) 

CALL  f€SSAG("  (C)ONDUCT  (G)ENERAL  (F)UNCTICNAL  (R  )EQUIREfEMTS  ( A)  NAL  BIS*  " 
4,  100,0.  80, 3.  6) 

CALL  f®SSAG("  (DTNSRDC  )$" ,  100,  5. 2,  5.  0) 

CALL  VECTOR(  6.62, 5.1 , 6.62, 5.  0,  0) 

CALL  VECTOR(6.62  ,  5.  0,7.77  ,  5.  0,0) 

CALL  MARKER(  2) 

CALL  CWVE(XA2(S)  ,YA1(7)  ,1,  1) 

CALL  »®SSAG("1  .3$",  100, 0.20,  4.  8) 

CALL  t€SSAG("  (D)EFINE  (  P)  ILOT  (  E)  XP  ERI  MS  NTS  /  (D  )EMONSTRAT  ICNS$", 

4  100  ,  0.  80, 3.  6) 

CALL  f£SSAG("  (DTNSRDC)*",  100,  5.  2,  4.  8) 

CALL  VECTOR(  6.  72  ,  4.  9  ,  6.  72, 4.  8, 0) 

CALL  VECT0R(6.72,4.8,7.CT,4.8,0) 

CALL  MARKER(  2) 

CALL  CIFVE(XA2(  3)  ,YA1(  8)  ,  1,  1) 

CALL  fESSAG("  1  .  4*" ,  100, 0.  20,4.  6) 

CALL  AESSAG("  (D  )EV ELOP  (  P)RELIMINARY  (E)CONOMIC  (A)NAL  YS1S*  ", 
4100,0.80,4.6) 

CALL  ME SSAG("  (DTNSRDC) *",100, 5.  2,  4.6) 

CALL  VECTOR(  6.  92  ,  4.7,6.92  ,  4.6,  0) 

CALL  VECT0R(  6.  92  ,  4.  6  ,  7.77,4.  6,0) 

CALL  MARKER(  2) 

CALL  CIFVE(XA2(  5)  ,YA1(9)  ,1,  1) 

CALL  MSSSAG("1 .5*",  100,  0. 20,  4.  4) 


GALL  M5SSAG("  (D  )EV  ELOP  (  PRELIMINARY  (B)UDGET  AND  (C  )OST  (  E)  STIMATES$  ", 
&  100,  0.  80,4.  4) 

CALL  hESSAGC  (DTN5RDC)$",  100,  5.  2,  4.  4) 

CALL  VECTOR(  6.  92  ,  4.  5,  6.  92  ,  4.  4,  0) 

CALL  VECTOR(  6.  92  ,  4  .  4,  7.77,4  .  4,  0) 

CALL  MVRKER(2) 

CALL  CIBVE(XA2(  5)  ,YA1(  10)  ,  1,  1) 

CALL  MSSSAG("  1  .6$",  100, 0.  20  ,  4.  2) 

CALL  M!SSAG("  (P)  REP  ARE  (P)ROJECT  (M  )ANAQ5MSNT  (P)LAN$", 

&  100  ,  0.  80,4.  2) 

CALL  M5SSAG("  (DTN5RDC)$" ,  100,  5.  2,  4.  2) 

CALL  VECTOR(  7.  67 , 4.  3,  7.  67 , 4.  2,  0) 

CALL  VECTOR(  7.  67 , 4.  2,7.77,4.2,0) 

CALL  MARKER(  2) 

CALL  CIFVE(XA2(  5)  ,YA1(  11)  ,1,  1) 

CALL  f€SSAG("1  .7$" ,  100  ,  0.  20  ,  4  .  0) 

CALL  MSSSAGO' (PREPARE  (R)ESOURCES  (A)NNEX$", 

&  100, 0.80,4.0) 

CAL L  M5SSAG("  (DTf6  RDC  )$",  100,  5.  2,  4.  0) 

CALL  VECTOR(7.57,4.1,7.57,4.  0,0) 

CALL  VECT0R(  7.  57,4.  0,7.  77,4.  0,0) 

CALL  MARKER(2) 

CALL  CU?VE(XA2(  5)  ,YA1(  12)  ,  1,  1) 

CALL  raSSAGO’l  .8$",  100,  0.20,  3.  8) 

CALL  f€SSAG("(P)REPARE  (PRELIMINARY  (A)CQUISITICN  ( S)TRATEGY$", 

&  100,0.  80, 3-  8) 

CALL  MiSSAGO’  (DTN5RDCR",  100,  5.  2,  3.  8) 

CALL  VECTORC  7.57 , 3.  9, 7. 57 , 3.  8,  0) 

CALL  VECTOR(7.57,3.  8,7.  77,3.  8,0) 

CALL  MARKER(  2) 

CALL  CWVE(XA2(  5)  ,YA1(  13)  ,  1,  1) 

CALL  7€SSAG("1  ,9$",100,0.  20  ,  3.  6) 

CALL  MESSAGC  (P)REPRAE  (S)UPPORT  (  P)  LAN  (  A)  NNEX$  " ,  100,  0.  80 , 3.  6) 

CALL  M3SSAG("  (DTN5RDCR",  100,  5.2,  3.  6) 

CALL  VECTOP(  7.  67  ,  3.  7,  7.  67 , 3*  6,  0) 

CALL  VECTOR(  7.67, 3.  6,7.  77,  3- 6,  0) 

CALL  MARKER(2) 

CALL  CIBVE(XA?(  5)  ,YA1(  14)  ,  1,  1) 

CALL  f£SSAG("1  .1  0$",  100,0.  20  ,  3.  4) 

CALL  I€SSAG("  (F)ORVftRD  (SEP)  1  FOR  (R  )FV IE W$  ",  100,  0.  80 , 3.  4) 

CALL  reSSAGO'  (DThERDC)$",  100,  5.  2,  3.  4) 

CALL  MARKER(2) 

CALL  CIPVE(XA2(  5)  ,YA1(  15)  ,1,  1) 

CALL  M5SSAG("  1  .1  1  ,  100,  0.  20  ,  3«  2) 

CALL  f£SSAG("  (R  )Etf  JEW  (SEP)  1  $" ,  100,  0.  80 , 3.  2) 

CALL  f£SSAG("  (NP  PSMD  )$" ,  100,  5.  2,  3*  2) 

CALL  VECTOR(  7.  97,  3.  3,  7.  97,  3-  2,  0) 

CALL  VECTOR(  7.  97,  3-  2,  8.  07,  3-  2,  0) 

CALL  MARKER(  2) 

CALL  CIRVE(XA2(  8)  ,YA1(  16)  ,  1,  1) 

CALL  MSSSAG("1  .12  100,0.20  ,  3.  0) 

CALL  PESSAG("  (A)PPFDVE  (SEP)  1 1" ,  100,  0.  80 , 3.  0) 
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CALL  >ESSAG("(NAVMC)$",100,5.2,  3.  o) 
CALL  VECT0R(  8. 07  ,  3. 1 , 8.  07  ,  3.  0,  0) 

CALL  VECT0R(  8.  07,  3.  0,  8. 1  7,  3.  0,  0) 

CALL  MARKER(2) 

CALL  CIRVE(XA2(  9)  ,YA1  (  17)  ,  1,  1) 

CALL  ENDPL(  1) 

CALL  DQJEPL 
END 


i 

l 


CAXX , CM 200000, P4 . 

CHARGE ,CAXX ,XXXXX99999 . 

REQUEST, PLFILE,»PF. 

FTN. 

ATTACH,  NS  RDC. 

ATTA  CH ,DISSPL A. 

ATTACH  ,TEK30 . 

LDSET,LIB=DISSPLA/NSRDC/TEK30 . 

LOO. 

CATALOG ,PLFILE , ID=CAXX . 

EOR 

C - MAIN  PROGRAM - 

PROGRAM  PAMKINPUT, OUTPUT, TAPE10,TAPE5=INPUT,TAPE6=OUTPUT) 

DIIENSION  X(12),X1(1),X2(1),X3(1),X4(1),Yl(1),Y2(1),Y3(1),Y4(1),Y5(1) 
DIMENSION  XA1( 12)  ,XA2( 12) ,XA3(  12) ,XA4( 12) ,XA5( 12) ,YA1( 17) 
data  X  /0. 375, 2. 85, 5. 5, 6. 625, 7. 875, 9. 125, 10. 375,  11  .625,12.75,13.75, 
414.75, 15.75/ 

DATA  XI  /O.O/ 

DATA  X2  /16.25/ 

DATA  X3  / 12 .25/ 

DATA  XU  /14.25/ 

DATA  Y 1  /O.O/ 

DATA  Y2  /7 .2/ 

DATA  Y3  /6.5/ 

DATA  Y4  /6 . 8/ 

DATA  Y5  /7.0/ 

1.  DATA  XA 1  /6.1 1,6.21,6.31,6.41,6.51,6.61,6.69,6.79,6.89,6.99,7.09,7.19/ 

2.  DATA  XA2  /7 . 36, 7. 46 , 7. 56 , 7. 66 ,7. 76 , 7. 86,7.94 ,8. 04 , 8. 1 4 , 8.24 , 8. 34 ,8. 44/ 

3.  DATA  XA3  /8. 61, 8. 71, 8. 81, 8. 91, 9. 01, 9.1 1,9.19,9.29,9.39,9.49,9.59,9.69/ 

4.  DATA  XA4  /9. 86, 9. 96, 10. 06 , 10.1 6, 10.26, 10. 36, 10.44, 10.54, 10.64, 10.74, 
•10.84, 10.94/ 

5.  DATA  XA5  /1 1  .1  1 , 11  .21 , 1 1 . 31 , 1 1  .41 , 1 1  .51 , 1 1  .61 , 1 1  .69,  1 1  .79 , 1 1  .89 , 1 1 .99 , 
•12.09,12.19/ 

6.  DATA  YA 1  /5 . 96 , 5. 77 , 5. 6, 5. 42, 5.23 , 4. 63 , 4. 45 , 4. 28,4. 09, 3. 92 , 3. 74 , 3- 57  , 
•3.  38,3.21,3.03,2.86,2.68/ 

C 

C  CHART  ASSEMBLY  BEGINS  HERE 

C 

CALL  OOMPRS 
CALL  BGNPL(I) 

CALL  PAGE( 17.0,11.0) 

CALL  PHYSOR(0.5,0.5) 

CALL  TITLE ( 2H  ,2,2H  ,2,2H  ,2,16.25,8.5) 

CALL  HEIGHT(0.21) 

CALL  M5SSAG("PLAN  OF  ACTION  AND  MILESTONES^" , 100,5.5, 8. 4) 

CALL  YNONUM 
CALL  XNONUM 
CALL  YTICKS(O) 

CALL  XTICKS(O) 

CALL  BARPAT(O) 

CALL  GRAF( 0.0, 1.0, 16. 25, 0.0, 1.0, 7. 5) 

CALL  THICRV(3) 
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CALL  BARWID(0.75) 

CALL  CLUSTR( 12.0,0.0) 

CALL  VBARS(X(1),Y1(1),Y2(1),1) 

CALL  BARWID(4. 25) 

CALL  VBARS(X(2),Y1(1),Y2(1),1) 

CALL  BARWID(I.O) 

CALL  \IBARS(X(3),Yl(1)fY2(1>,1) 

CALL  BARWID( 1 .25) 

CALL  VBARSCXC4) ,Y 1( 1 ) ,Y2( 1 ) ,  1 ) 

CALL  VBARS(X(5),Y1(1),Y2(1),1) 

CALL  VBARS(X(6)  ,Y7(?),Y2(  1),1) 

CALL  VBARS(X(7) ,Y1( 1 ) ,Y2(  1) ,  1) 

CALL  1!BARS(X(8),Y1(1),Y2(1),1) 

CALL  BARWID(I.O) 

CALL  VBARS(X (9) ,Y1(1),Y4(7),t) 

CALL  VBARS(X(10) ,Y 1( 1 ) ,Y4( 7) ,  1) 

CALL  VBARS(X( 1 1),Y1(1),Y4(1),1) 

CALL  VBARS(X(12) ,Y1( 1),Y4(1),1) 

CALL  BARWID{0.05) 

CALL  TBICRV(5) 

CALL  HBARS(X1(1),X2(1),Y3(1),7) 

CALL  BARWID(0.45> 

CALL  aUSTR(2.0,0.0) 

CALL  HBARS(X3(1),X4(1),Y5(1),1) 

CALL  HBARS(X4(1),X2(1),Y5(1),1) 

CHART  HEADINGS 

CALL  HEIGHT(O.IO) 

CALL  BAS ALF( "STANDARD"  ) 

CALL  JCSSAGf "ACTIONS",  100,0.08,7.8) 

CALL  HEIGHT(O.IO) 

CALL  MESSAG("RESPONSIBLE$", 100,5.05,7.8) 

CALL  MS  SSAG(" INITIATION  DATES  $",100,12.5,8.7) 
CALL  MSSSAG("COMPLETION  DATES  $",100,14.5,8.7) 
CALL  HEIGHT (0.1  5) 

CALL  7ESSAG("FY  81 $", 100,6. 3,7.8) 

CALL  MESSAG("FY  82$", 100,7.6,7.8) 

CALL  MESSAG("FY  83$n, 100,8.9,7.8) 

CALL  MESSAG("FY  84$", 100, 10.1,7.8) 

CALL  MESSAG("FY  85$" , 100, 1 1 .4,7.8) 

CALL  MBSSAG("DESCRIPTION$", 100,2.0,7.5) 

CALL  MESSAG("ID$", 100,0.20,7.5) 

CALL  HEIGHT(O.IO) 

CALL  MSSSAG("OFFICIAL$”, 100,5.2,7.5) 

CALL  HEIGHT(O.IO) 

CALL  MESSAG(«ONDJFMAMJJAS$", 100,6.12,7.5) 

CALL  «SSAG("ONDJFMAMJJAS$",  100,7.  37,7.5) 

CALL  MSSSAG("ONDJFMAMJJAS$",  100,8.62,7.5) 

CALL  1«SSAG(«0NDJFMAMJJAS$",  100,9.87,7.5) 

CALL  (CSSAG("ONDJFMAMJ JAS$",  100, 11 .12,7.5) 

CALL  MESSAG("ESTIMATED$", 100, 12.37,7.5) 
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CALL  «:SSAG("ACTUAL$", 100, 13. 375,7.5) 

CALL  NE SSAG( "ESTIMATE D$ " , 100, 14. 37,7.5) 

CALL  !ESSAG("ACTUAL$",100, 15.375,7.5) 

C 

C  CHART  INFORMATION 

C 

CALL  BAS ALF ( "L/CSTD" ) 

CALL  MIXALF ("STANDARD"  ) 

CALL  HEIGHT ( 0.095) 

CALL  M5SSAG("0 . 0$" ,100,0.20,7.0) 

CALL  NESSAGC  (MILESTONE (0)-  MISSION  ANALYSIS/PfOJECT  INITIATIONS", 

4100, 0.80, 7.0) 

CALL  VECTOR( 0 . 80 , 6 . 95 , 4 . 95 , 6 . 95 , 0) 

CALL  M%SSAG("0.1  $”,  100,0.20,6.7) 

CALL  MESSAGC'  (D  )EV ELOPMENT  OF  (MENS)  $",  100, 0.80 ,6.7) 

CALL  MSSSAG("  ( NPPSMO  )$",  100,5.2,6.7) 

CALL  MARKER(2) 

CALL  CURVE(XAi (4) ,YA1 ( 1) ,1, 1) 

CALL  !E3SAG(''0.2$" ,  100,0.20,6.5) 

CALL  MESSAGC  (E)STABLLSH  (P)ROJECT  (0)FFICE$",  100,0.80,6.5) 

CALL  reSSAGC'  (NPPSMO )$", 100,5.2,6.5) 

CALL  MARKER(  2) 

CALL  CURVE(XA1(5),YA1(2),1,1) 

CALL  MESSAGC'0 . 3$" ,  1 00 , 0.20 , 6. 3) 

CALL  NESSAGC (A)PPOINT  (PM),  (ADP)  AND  (T)ELE COMMUNICATIONS  (MARS)$", 

&  100, 0. 80 , 6. 3) 

CALL  MESSAGC  (NPPSMO) $",100, 5. 2, 6. 3) 

CALL  MARKER( 2) 

CALL  CURVE(XA1(5) ,YA1(3) , 1, D 
CALL  fESSAGC'O.  3$",  100,0.20,6.1  ) 

CALL  h€SSAG("(D)EVELOP  (P)LAN  OF  (A)CTION  AND  (M )ILE STONE S$", 
*100,0.80,6.1  ) 

CALL  MESSAGC  (DTNSRDC)$",  100,5.2,6.1 ) 

CALL  MARKER(2) 

CALL  CURVE(XA1(5)  ,YA1(4)  ,1, 1) 

CALL  MESSAGC'0. 5 $”,100,0.20,5.9) 

CALL  MESSAGC'  (A) PPfOVAL  OF  (MENS )$",  100,0.80,5.9) 

CALL  fESSAG("(NAVDAC)$",  100,5.2,5.9) 

CALL  MARKER( 2) 

CALL  CURVE(XA1(7) ,YA1(5) ,1,1) 

CALL  MESSAG("1  .0$", 100,0.20,5.5) 

CALL  MESSAGC  (MILESTONE)  1  -  (CONCEPT  DEVELOPMENT  PHASES", 100,0. 80 ,5.5) 
CALL  VECTOR( 0.80 ,5. 45 ,4. 35 ,5. 45 , 0) 

CALL  NESSAGC'I  .1  $",100,0.20,5.2) 

CALL  MESSAGC  (S)UBMIT  (POM)  (R  )EQUIREMENT/(PIE)  (P)ROJECTS$", 
4100,0.80,5.2) 

CALL  JESSAG("(NPPSM0)$",10O,5.2,5.2) 

CALL  MARKER(2) 

CALL  CURVE(XA1 ( 1),YA1(6) ,1,  1) 

CALL  MESSAGC1 .2$",  100,0.20,5.0) 

CALL  MESSAGC  (C)ONDUCT  (G)ENERAL  (F)UNCTIONAL  (R  )EQUIRE(ENTS  (A)NALYSIS$" 
4, 100,0.80,3.6) 
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CALL  MBSSAGCCDTMSRDC)*", 100,5.2,5.0) 

CALL  VECT0R(6. 62, 5.1 ,6.62,5.0,0) 

CALL  VECTO R( 6.62,5.0,7.77,5.0,0) 

CALL  MARKER( 2) 

CALL  CURVECXA2C5) ,YA1(7) ,1,1) 

CALL  MESSAGC  1.3$",  100, 0.20, 4. 8) 

CALL  bESSAGC  (D)EFINE  (P)ILOT  (E)XPERIfCNTS/(D )EMONSTRATIONS$" , 
4100,0.80,3*6) 

CALL  fCSSAG("(DTNSRDC)$",  100,5.2,4.8) 

CALL  VECTO R( 6. 72, 4. 9, 6. 72, 4. 8,0) 

CALL  VECTOR( 6. 72, 4. 8, 7. 57, 4. 8,0) 

CALL  MARKERC  2) 

CALL  CURVE(XA2( 3) ,YA1 ( 8) ,1, 1) 

CALL  1*SSAG("1 .4$",  100,0.20,4.6) 

CALL  reSSAG("(D)EVELOP  ( PRELIMINARY  (E)CONOMIC  CA)NALYSIS$", 

4100,0.80 ,4.6) 

CALL  t'ESSAGC  (DTNSRDC)$",  100,5.2,4.6) 

CALL  VECTO R( 6.92,4.7,6.92,4.6,0) 

CALL  VECTOR( 6.92,4.6,7.77,4.6,0) 

CALL  MARKER( 2) 

CALL  CURVE(XA2(5)  ,YA1(9)  ,1,  D 
CALL  MESSAGO'1 .5$" , 100, 0. 20 , 4. 4) 

CALL  teSSAG("(D)EVELOP  ( PRELIMINARY  (B)UDGET  AND  (C)OST  ( E)STIMATES$", 
4100,0.80,4.4) 

CALL  f*:SSAGC(DTNSRDC)$",  100,5.2,4. 4) 

CALL  VECTO R( 6. 92, 4. 5, 6. 92, 4.  4,0) 

CALL  VECTORC 6.92,4. 4,7.77,4. 4,0) 

CALL  MARKERC2) 

CALL  C0RVE(XA2(5) ,YA1( 10) ,1,1) 

CALL  h£SSAG("1 .6$", 100,0.20,4.2) 

CALL  l*SSAG("(  PREPARE  (P)ROJECT  (M)ANAGEM5NT  (P)LAN$", 

4100,0.80,4.2) 

CALL  NESSAGC (DTNSRDC)$n, 100,5.2,4.2) 

CALL  VECT0R(7. 67, 4. 3,7.67,4.2,0) 

CALL  VECTOR( 7.67,4.2,7.77,4.2,0) 

CALL  MARKERC 2) 

CALL  CURVE(XA2(5) ,YA1(11),1, 1) 

CALL  MESSAGC’1 .7$", 100,0.20,4.0) 

CALL  MESSAGC'  (P)REPARE  (R)ESOURCES  (A)NNEXt", 

4100,0.80,4.0) 

CALL  MESSAGC  (DTNSRDCR",  100,5.2,4.0) 

CALL  VECTO R( 7. 57, 4. 1,7. 57, 4  .  0,0) 

CALL  VECTOR(7.57 ,4.0,7.77,4.0,0) 

CALL  MARKERC  2) 

CALL  CURVECXA2C5)  ,YA  1  ( 12) ,  1,  1) 

CALL  fCSSAGC  1 .8$" ,  100 ,0.20 , 3* 8) 

CALL  fCSSAGC  (P)REPARE  ( PRELIMINARY  (A)CQUISITION  (S)TRATEGY$", 
4100,0.80,3.8) 

CALL  MESSAGC  CDT MS RDC)$",  100,5.2, 3*8) 

CALL  VECTORC7.57 ,3. 9, 7. 57  ,  3.8,0) 

CALL  VECT0RC7.57 ,3.8,7.77,3.8  ,  0) 

CALL  MARKERC 2) 
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CALL  CURVE(XA2(5) ,YA1(13),1, D 
CALL  MESSAGCl  .9$",  100, 0.20, 3. 6) 

CALL  MESSAGC  (P)REPRAE  (S)UPPORT  (P)LAN  (A)NNEX$",  100,0.80, 3.  6) 
CALL  MESSAGC  (DTNSRDC)$",  100,5.2, 3.6) 

CALL  VECT0R(7.67,3.7,7.67,3.6,0) 

CALL  VECT0R(7.67,3.6,7.77,3.6,0) 

CALL  MARKER(  2) 

CALL  CURVE(XA2(5) ,YA1 ( 14) ,1, 1) 

CALL  MESSAGCl. 10$", 100, 0.20, 3.4) 

CALL  MESSAGC  (F)ORWARD  (SDP)  1  FOR  (R  )EVIEW$" ,  100 , 0. 80 , 3.  4) 

CALL  MESSAGC  (DTNSRDC )$" , 100 , 5. 2, 3*  4) 

CALL  MARKER( 2) 

CALL  CURVE(XA2(5)  ,YA1  (  15)  ,  1,  1) 

CALL  MESSAGC 1 .1  1 $", 100,0.20,3.2) 

CALL  MESSAGC  (R)EVIEW  (SDP)  1$", 100, 0.80, 3.2) 

CALL  MESSAGC  (NPPSMO)$",  100,5.2, 3-2) 

CALL  VECTOR(7.97,R.  3,7.47,3.2,0) 

CALL  VECT0R(7.9'7, 3. 2,8.07,3. 2,0) 

CALL  MARKER(2> 

CALL  CURVE(XA2( 8) ,YA1 ( 16) ,1,1) 

CALL  Mi SSA G ( " 1 .12 , 100, 0.20, 3- 0) 

CALL  MESSAGC  (A)  PPROVE  (S  IE)  1 $", 100,0. 80 ,3. 0) 

CALL  MFSSAGC  (NAVDAC)  $"  ,  100 , 5.2, 3*  0) 

CALL  VFCT0R(8. 07, 3.1 ,8.07,3.0,0) 

CALL  VECTOR(  8. 07, 3. 0,8. 17, 3. 0,0) 

CALL  MARfSR(?) 

CALL  C’JRVE(XA2(  9)  ,YA  1(17)  ,1,  1) 

DATE  MANIPULATIONS 

CALL  PESSAG("(JAN  81 )$", 100, 15.375,6.7) 

CALL  MESSAGC  (FEB  81  )$",  100, 15.  375,6.5) 

CALL  ME  SSA  G ( " ( FEB  81 ) $", 100, 15. 375,6. 3) 

CALL  MESSAGC  (FEB  8 1 )  $"  ,  100 , 12 . 37, 6 .1  ) 

CALL  MESSAGC  ( FEB  81  )$",  100, 13. 375,6.1  ) 

CALL  MESSAGC  (FEB  81 )  $" ,  100 , 14. 37,  6.1  ) 

CALL  MESSAGC  (FEB  81  )$",  100, 15. 375,6.1 ) 

CALL  MESSAGC  (APR  81  )$",  100, 15. 375,5.9) 

CALL  MESSAGC  (OCT  8 1 ) $" ,  100 , 1b.  375, 5. 2) 

CALL  MESSAGC  (MAR  81  )$",  100, 12 . 37,  5.0) 

CALL  MESSAGC  (FEB  82)$",  100, 14.  37,5.0) 

CALL  MESSAGC  (APR  81  )$",  100, 12 . 37, 4. 8) 

CALL  MESSAGC  (APR  81  )$",  100, 13. 375,4.8) 

CALL  MESSAGC  (DEC  81 ) $",  100, 14. 37, 4.8) 

CALL  MESSAGC  ( JUN  8 1 )  $" ,  100, 12 . 37, 4. 6) 

CALL  MESSAGC  (JUN  81  )$",  100, 13. 375,4.6) 

CALL  MESSAGC  (FEB  82)$",  100, 14.  37,4.6) 

CALL  MESSAGC  ( JUN  8 1 )  $" ,  100 , 12 . 37,  4.  4) 

CALL  MESSAGC  (JUN  8 1 )  $" ,  100 , 13 . 375, 4.  4) 

CALL  MESSAGC  (FEB  82)$" ,  100 , 14.  37, 4.  4) 

CALL  MESSAGC  (DEC  8l)$",  100,  12.37,4.2) 

CALL  MESSAGC  (JAN  82)  $"  ,  100 , 13 . 375, 4. 2) 


64 


CALL  fCSSAG(" (FEB  82) $", 100 , 14. 37, 4.2) 
CALL  M5SSAG(" (DEC  81 ) $",  100, 12 . 37, 4. 0) 
CALL  1CSSAG("(DEC  81 ) $" ,  100, 13 . 375, *1. 0) 
CALL  M5SSAG(" (FEB  82)$", 100, 14. 37,4.0) 
CALL  reSSAG("(DEC  81 )  $" ,  100, 12. 37,  3. 8) 
CALL  t®SSAG("  (FEB  82)$",  100, 14. 37, 3.8) 
CALL  M5SSAG("  (DEC  81 )  $",  100, 12 . 37,  3. 6) 
CALL  M5SSAG(" (JAN  82) $", 100, 13 . 375, 3. 6) 
CALL  fESSAG("(FEB  82)$",  100, 14.  37,  3.6) 
CALL  f«SSAG("(APR  82)$",  100, 12. 37,  3.  4) 
CALL  f£SSAG("  (APR  82)  $" ,  100 , 14 .  37, 3.  4) 
CALL  M5SSAG("  (APR  82) $",  100,  12 . 37,  .3.2) 
CALL  reSSAG("(MAY  82) $", 100, 14. 37, 3. 2) 
CALL  fCSSAG("  (MAY  82)$",  100,  12. 37,  3. 0) 
CALL  MJSSAG(" (JON  82) 100, 14. 37, 3. 0) 
CALL  ENDPL(O) 

CALL  DONEPL 
END 
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POAM'S  FILE  AND  PLOTS 
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CAXX, CM 200000, P4. 

CHARCE  ,CAXX ,XXXXX99999 . 

REQUEST, PLFILE,*PF. 

FTN. 

ATTACH  ,  NSRDC. 

ATTACH, DISSPLA. 

ATTACH  ,TEK30 . 

LDSET,LIB=DISSPLA/NSRDC/TEK30 . 

LOO. 

CATALOG , PLF ILE , ID=  CA  XX . 

EOR 

C - MAIN  PROGRAM - 

PROGRAM  P OA M( INPUT, OUTPUT, TAPE1 0,TAPE5=INPUT,TAPE6=OUTPUT) 

DIMENSION  X(12)  ,X1(  1)  ,X2(  1)  ,X3(  1)  ,X4(  1)  ,Y1(1)  ,Y2(  1)  ,Y3(  1)  ,Y4(  1)  ,Y5(  1) 
DIIENSION  XA1 ( 12) ,XA2( 12)  ,XA3( 12)  ,XA4( 12) ,XA5( 12) ,YA1( 17) 

DINENSION  M-I  ( 12  ) 

REAL  OFFSET 

DATA  AW  /3HOCH,  3 H NOV ,  3HDEC,  3HJAN,  3HFEB,  3HMAR,  3HAPR,  3HMAY, 
•3HJUN,  3HJUL,  3 HA UG  ,  3HSEP/ 

DATA  X  /O. 375, 2. 85, 5. 5, 6. 625, 7. 875, 9. 12 5, 10. 375,11 .625, 12.75, 13.75, 
8.14.75,  15.75/ 

DATA  XI  /O.O/ 

DATA  X2  /16.25/ 

DATA  X3  /12.25/ 

DATA  X4  /Vi.  25/ 

DATA  Y 1  /O.O/ 

DATA  Y2  /8 .7/ 

DATA  Y3  /8 .0/ 

DATA  Y4  /8 .3/ 

DATA  Y5  /8.5/ 

DATA  XA1  /6.1  1,6.21 ,6.31,6.41,6.51,6.61,6.69,6.79,6.89,6.99,7.09,7.19/ 
DATA  XA2  /7. 36, 7. 46, 7. 56, 7. 66, 7. 76, 7. 86, 7. 94, 8. 04, 8. 14, 8. 24 ,8.34,8.44/ 
DATA  XA3  /8. 6 1,8. 71, 8. 81, 8. 91, 9. 01, 9.1  1,9.1  9,9.29,9.39,9.49,9.59,9.69/ 
DATA  XA4  /9. 86, 9. 96, 10. 06, 10. 16, 10. 26, 10. 36, 10. 44, 10. 54, 10. 64, 10. 74, 
*10.84, 10.94/ 

DATA  XA5  /1  1  .1  1,  11  .21 , 11  .31,  11  .41 , 11  .51, 11  .61,  11  .69,  11  .79 , 11  .89, 11  .99, 
*12.09,  12.19/ 

DATA  YA1  /7. 685, 7. 495, 7. 325, 7. 145, 6. 955, 6. 355, 6. 175, 6. 005, 5. 815, 
*5.645,5.465,5.95,5.105,4.935,4.755,4.585,4.405/ 

OFFSET  =  0.0 
ANS  =0.0 
ANS3  =0.0 
SP1  =  0.0 
SP2  =  0.0 
SP3  =  0.0 
YVALU  =  0.0 
ANS2  =  0.0 
XBLK1  =  0.21 
XBLK2  =0.80 
XBLK3  =5.2 
XBLK9  =  12.37 
XBLK10  =  13.375 
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XBL1C11  =  14. 37 
XBLK12  =  15.375 
C 

C  CHART  ASSEMBLY  BEGINS  (ERE 
C 

CALL  ODMPRS 
CALL  BGNPL(I) 

CALL  BLOWUP  (1.0/1 .2) 

CALL  PAGE(17.0,11 .5) 

CALL  PHIS 0R( 0.5,0. 5) 

CALL  NOBRDR 

CALL  TITLE (2H  ,2,2H  ,2,2H  ,2,16.25,10.0) 

CALL  HEIGHT (0.21) 

CALL  (ESSAG("PLAN  OF  ACTION  AND  MILESTONES!",  100,5.5,8.4) 
CALL  YNONUK 
CALL  XNONUM 
CALL  YTICKS(O) 

CALL  XTICKS(O) 

CALL  BARPAT(O) 

CALL  GRAF( 0.0, 1.0, 16. 25, 0.0, 1.0, 9.0) 

CALL  THICRV(3) 

CALL  BARWID(0.75) 

CALL  aUSTR(  12.0,0.0) 

CALL  \BARS(X(1),Y1(1),Y2(1),1) 

CALL  BARWID(4.25) 

CALL  VBARS(X(2) ,Y1(1),Y2(1),1) 

CALL  BARWID(I.O) 

CALL  VBARS(X (3) ,Y1( 1) ,Y2( 1) ,1) 

CALL  BARMID( 1 .25) 

CALL  4BARS(X(4),Y1(1),Y2(1),1) 

CALL  VBARS(X (5) ,Y1(1),Y2(1),1) 

CALL  VBARS(X(6) ,Y 1(1) ,Y 2( 1 ) , 1 ) 

CALL  VBARS(X(7),Y1(1),Y2(1),1) 

CALL  VBARS(X(8) ,Y1(1),Y2(1),1) 

CALL  BARWID(I.O) 

CALL  VBARS(X(9),Y1(1),Y4(1),1) 

CALL  VBARS(X(10) ,Y1( 1) ,Y4( 1) , 1) 

CALL  4BARS(X( 11 ) ,Y 1( 1 ) ,Y4( 1) , 1 ) 

CALL  VBARS(X(12),Y1(1),Y4(1),1) 

CALL  BARWID(0.05) 

CALL  THICRV(  5) 

CALL  HBARS(X1(1),X2(1),Y3(1),1) 

CALL  BARHID(0. 45) 

CALL  aUSTR(2.0,0.0) 

CALL  HBARS(X3(1),X4(1),Y5(1),1) 

CALL  HBARS(X4( 1) ,X2( 1) ,Y5( 1) , 1) 

C 

C  CHART  (EA  DINGS 

C 

CALL  HEIGHT(O.IO) 

CALL  B AS ALF( "STANDARD"  ) 

CALL  (CSSAG(”ACTION$", 100, 0.08, 9.4) 
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CALL  HEIGHT (0.10) 

CALL  1ESSAG("RESPGNSIBLE$",100,5.05,9.4) 

CALL  MS  SSAG(" INITIATION  DATES  $",100,12.5,9.4) 

CALL  1ESSAG("C0MPLETI0N  DATES  $",100,14.5,9.4) 

CALL  HEIGHT (0.1  5) 

CALL  1CSSAG("FY  81  $" ,  100 ,6. 3, 9. 4) 

CALL  fESSAG("FY  82$",  100,7.6,9. 4) 

CALL  1CSSAG("FY  83$" , 100, 8. 9, 9. 4) 

CALL  fCSSAG("FY  84$",  100, 10. 1 , 9.  4) 

CALL  MESSAG("FY  85 $" , 100 , 1 1 .4,9. 4) 

CALL  fCSSAG ("DESCRIPTION ”,  100 , 2. 0, 9.  05 ) 

CALL  f®SSAG("ID$" ,  100, 0.20, 9. 05) 

CALL  HEI®T(0.10) 

CALL  f®SSAG("0FFICIAL$" ,  100, 5. 2, 9. 05) 

CALL  HEIGHT(O.IO) 

CALL  M5SSAG("0NDJFMAMJ  JAS$" ,  100, 6. 12, 9. 05) 

CALL  1ESSAG("0NDJFMAKJJAS$",  100,7.37,9.05) 

CALL  raSSAG("0NDJFMAMJJAS$",100,8.62,9.05) 

CALL  1ESSAG("0NDJFMAHJJAS$",100,9  .  87,9.05) 

CALL  1ESSAG("0NDJFMAMJ  JAS$",  100 , 1 1  .12,9.05) 

CALL  1ESSAG("ESTIMATED$ ",  100 , 12 . 37, 9. 05 ) 

CALL  1ESSAG("ACTUAL$" ,  100 , 13 . 375, 9. 05) 

CALL  hESSAG("ESTIMATED$",100, 14  .  37,9.05) 

CALL  1C SSAG(" ACTUAL $",100, 15.  375, 9. 05) 

CHART  INFORMATION 

CALL  BAS ALF ( "L/CSTD" ) 

CALL  MIXALF  ( "STANDARD"  ) 

CALL  HEIGHT ( 0. 095) 

CALL  YC00RD(1, OFFSET, 1,ANS) 

CALL  MESSAG(”0.0$", 100,XBLK1, ANS) 

CALL  M5SSAG("  (MILESTONE  0  -  MISSION  ANALYSIS /PROJECT  INITIATION$" , 
*100,XBLK2,ANS) 

ANS3  =  ANS  -  0.05 

CALL  VECTOR( 0. 80 , ANS3 , 4.95, ANS3 , 0) 

CALL  YC00RD(2, OFFSET, 0, ANS) 

CALL  1CSSAG("0. 1  $" ,  100  ,XBLK1 ,  ANS) 

CALL  NESS  AG  ("  (D  )EVELOPOMENT  OF  ( (MENS)  $",  100  ,XBLK2,  ANS) 

CALL  M5SSAG(" (NPPSMD )$", 100,XBLK3,ANS) 

CALL  1CSSAG(" (JAN  81 )$",  100,XLBK12 ,ANS) 

CALL  MARKER(9) 

CALL  MARKPL(MM(4),1,SP3) 

CALL  CURVPL( ANS ,YVALU) 

CALL  CURVE(SP3,YVALU,1,  1) 

CALL  YC00RD(3, OFFSET, 0, ANS) 

CALL  fCSSAG("0.2$" ,  100 ,XBLK1, ANS) 

CALL  1CSSAG  (" (E)STABLISH  (P)ROJECT  (0)FFICE$",  100,XBLK2, ANS) 

CALL  MESSAG(" (NPPSMD )$", 100, XBLK3, ANS) 

CALL  MESSAG(" (FEB  81 )$", 100,XLBK12, ANS) 

CALL  MARKER(9) 

CALL  MARKPL(MM(5),1»SP3) 
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CALL  CURVPL(ANS,YVALU) 

CALL  CURVE(SP3,YVALU,1, 1) 

CALL  YC00RD(4, OFFSET, 0, ANS) 

CALL  FESSAG("0.  3$"»  100,XBLK1, ANS) 

CALL  fCSSAG  ("(A)PPOINT  (PM),  (ADP)  AND  (T)ELEOOffflJNI  CAT  IONS  (M)ARS 
•$",100, XBLK2, ANS ) 

CALL  fESSAG("  (NPPSMD  )$",  100,XBLK3,  ANS) 

CALL  *SSAG("(FEB  81 ) $" , 100 ,XLBK12 , ANS) 

CALL  MARKER(  9) 

CALL  MARKPL(MM(5) ,1,SP3) 

CALL  CURVPL(ANS,YVALU) 

CALL  CURVE(SP3,YVALU,1,  1) 

CALL  YCOORD ( 5 ,0F FSET ,  0, ANS ) 

CALL  «SSAG("0.4$",100,XBLK1,ANS) 

CALL  FESSAG  ("(D)EVELOP  (P)LAN  OF  (A)CTION  AND  (M )ILE STONE S$", 
100,XBLK2, ANS) 

CALL  M5SSAG(" (DTNSRDC)$", 100,XBLK3, ANS) 

CALL  »CSSAG("(FEB  81 )$", 100,XLBK9, ANS) 

CALL  MJSSAG(" (FEB  8l)$",100,XLBK10,ANS) 

CALL  FESSAG(" (FEB  81)$",100,XLBK11,ANS) 

CALL  FESSAG("(FEB  81 ) $" , 100 ,XLBK12 , ANS) 

CALL  MARKER(  9) 

CALL  MARKPL(MM(5) ,1,SP3) 

CALL  CURVPL(ANS,YVALU) 

CALL  CWVE(SP3,YVALU,1, 1) 

CALL  YC00RD(6, OFFSET,  0,  ANS) 

CALL  fCSSAG("0.5$",100,XBLK1,ANS) 

CALL  MBSSAG  (" (A)PPRDVAL  OF  (MENS)$",  100,XBLK2, ANS) 

CALL  FESSAG("(NAVDAC)$",100,XBLK3,ANS) 

CALL  f€SSAG("  (APR  81 ) $" , 100 ,XLBK12 , ANS) 

CALL  MARKER(9) 

CALL  MARKPL(MM(7) ,1,SP3) 

CALL  CIFVPL(ANS,YVALU) 

CALL  C0RVE(SP3,YVALU,1,  1) 

CALL  YC00RD(8, OFFSET,  1, ANS) 

CALL  FESSAG("1.0$",100,XBLK1,ANS) 

CALL  FESSAG("  (MILESTON  I)  -  (CONCEPT  DEVELOPS  NT  PHASE)$", 

•1 00,XBLK2, ANS) 

ANS3  =  ANS  -  0.05 

CALL  VECTOR(0.80,ANS3,4.35,ANS3,0) 

CALL  YCOORD (9, OF FSET, 0, ANS) 

CALL  FCSSAG("1.1$",100,XBLK1,ANS) 

CALL  MSSSAG  ("(S)UBMIT  (POM)  (I)SSUES  (PECI)  (I)SSUES$", 

100,XBLK2, ANS) 

CALL  «SSAG("  (NPPSMD  )$",  100, XBLK3,  ANS) 

CALL  FESSAG(" (OCT  81 ) $" , 100 ,XLBK12 , ANS) 

CALL  MARKER(9) 

CALL  MARKPL(MM(1) ,  1,SP3) 

CALL  CURVPL( ANS,YVALO) 

CALL  CURVE(SP3,YVALU,1,  1) 

CALL  YC00RD(10, OFFSET, 0, ANS) 

CALL  FESSAQ("1.2$",100,XBLK1,ANS) 


CALL  fESSAG  ("(C)ONDUCT  (G)ENERAL  ( FUNCTIONAL  (R  )EqUIREfENTS 
•  ( A)  NAL  YSIS$  " ,  1 00  ,XBLK2,  ANS ) 

CALL  *ESSAG("(DTNSRDC)$",100,XBLK3,ANS) 

CALL  fESSAG("  (MAR  81  )$",  100,XLBK9,ANS) 

CALL  fESSAGC  (MAR  81  )$",  100,XLBK10,ANS) 

CALL  M5SSAG("  (FEB  82)$", 100,XLBK11,ANS) 

CALL  fESSAG("  (MAR  82)  $" ,  100 ,XLBK12 ,  ANS) 

CALL  MARKER(  9) 

CALL  VECTPL(MM(5) , 1 , SP1 ) 

CALL  VECTPL(MM(7) ,2,SP2) 

CALL  MARKPL(MM(7)  ,2,SP3) 

ANS2  =  ANS  +0.1 
V ECTOR( SP 1 , ANS2 , SP 1 , ANS , 0) 

VECTOR( SP 1 , ANS , SP2 , ANS , 0) 

CALL  CURVPL(ANS,YVALU) 

CALL  CURVE(SP3,YVALU,1,  1) 

CALL  YCOORD ( 1 1 , OF  FSET , 0 , ANS ) 

CALL  fCSSAGC'l  . 3$" , 100,XBLK1, ANS) 

CALL  IESSAG  ("(D)EFINE  (P)ILOT  (E)XPERIIENTS/(D  )EM3NSTRATI0NS 
*$ " , 1 00 ,  XBLK2, ANS ) 

CALL  fESSAGC  (DTNSRDC  )$" ,  100 ,XBLK3, ANS) 

CALL  NESSAGC  (AP R  8 1 ) $" ,  100,XLBK9, ANS) 

CALL  NESSAG("  (APR  81 )  $" ,  100 ,XLBK10, ANS) 

CALL  MESSAG(" (JAN  82 ) $" , 100,XLBK11 , ANS) 

CALL  MSSSAGOMJAN  82) $" ,  100 ,XLBK12 , ANS) 

CALL  MARKER(  9) 

CALL  VECTPL(MM(6) ,  1, SP1 ) 

CALL  VECTPL(MM(4),2,SP2) 

CALL  MARKPL(MM(4) ,2,SP3) 

ANS2  =  ANS  +0.1 
V ECTO R( SP 1 , ANS2 , SP 1 , ANS , 0 ) 

VECTOR( SP 1 , ANS , SP2 , ANS , 0) 

CALL  CORVPL(ANS.YVALU) 

CALL  CURVE(SP3,YVALU,1,  1) 

CALL  YCOORD ( 12 , OF FSET, 0, ANS) 

CALL  fESSAG("1 . 4$" , 100,XBLK1, ANS) 

CALL  fESSAG  ("(D)EVELOP  ( PRELIMINARY  (E)CONOMIC  (A)NALYSIS 
*$", 100 ,XBLK2, ANS) 

CALL  (ESSAG("(DTNSRDC)$",100,XBLK3,ANS) 

CALL  MESSAGE  (JUN  81 ) $" , 100.XLBK9, ANS) 

CALL  fESSAG("(JUN  81 )$", 100 ,XLBK10, ANS) 

CALL  fESSAG("  (MAR  81 ) $" , 100 ,XLBK11 , ANS) 

CALL  fESSAG("  (MAR  82) $" , 100,XLBK12 , ANS) 

CALL  MARKER(  9) 

CALL  VECTPL(MM(9)  ,1,SP1) 

CALL  VECTPL(MM(7)  ,2,SP2) 

CALL  MARKPL(MM(7) ,2,SP3) 

ANS2  =  ANS  +  0.1 
VECTOR(  SP  1 ,  ANS2 ,  SP  1 ,  ANS ,  0) 

VECTOR(  SP  1 ,  ANS ,  SP2 ,  ANS ,  0) 

CALL  CWVPL(ANS,YVALU) 

CALL  CURVE(SP3,YVALU,1,  1) 
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CALL  TC00RD(13,0FFSET,0,ANS) 

CALL  r«SSAG("1.5$",100,XBLK1,ANS) 

CALL  FESSAG  ("(D)EVELOP  (  PRELIMINARY  (B)UDOBT  AND  (C)OST  (E)STIHATE 
*$", 100,XBLK2, ANS) 

CALL  FESSAG*" (DTN3RDC)$" ,  100,XBLK3, ANS) 

CALL  FESSAG("(JUN  81 ) $" , 100,XLBK9,ANS) 

CALL  FESSAGf"  ( JUN  81 ) $", 100,XLBK10, ANS) 

CALL  FESSAG("  (FEB  82)  $",  100,XLBK11 ,  ANS) 

CALL  FESSAG("(MAR  82)  $" ,  100,XLBK12 ,  ANS) 

CALL  MARKER* 9) 

CALL  VECTPL(MM(9),1,SP1) 

CALL  VECTPL(HM(6) ,2, SP2) 

CALL  MARKPL(MM(6),2,SP3) 

A  NS  2  =  ANS  -f  0.1 
VECTOR(  SP 1 ,  ANS2 ,  SP1 ,  ANS ,  0) 

VECTOR*  SP 1 ,  ANS ,  SP2 ,  ANS ,  0) 

CALL  C(FVPL( ANS,YVALU) 

CALL  C®VE(SP3,YVALU,1,  1) 

CALL  YCOORD(14,OFFSET,0,ANS) 

CALL  FESSAG("1 .6$", 100,XBLK1, ANS) 

CALL  FESSAG  ("(D)EVELOP  (P)ILOT  (S)YSTEM  (S)PECIFICATIONS 
*$",  100,XBLK2,AFIS) 

CALL  FESSAG("  (DTFBRDC  )$" ,  100 ,XBLK3,  ANS) 

CALL  FESSAG(" (OCT  81 )$", 100,XLBK9,ANS) 

CALL  FESSAG(" (OCT  81 )$", 100,XLBK10,ANS) 

CALL  FESSAG("  (MAR  82)$",  100,XLBK11,ANS) 

CALL  FESSAG("  (MAR  82)  $" ,  100  ,XLBK12 ,  ANS) 

CALL  MARKER*  9) 

CALL  VECTPL(MM(1),1,SP1) 

CALL  VECTPL(MM(6) ,2, SP2) 

CALL  MARKPL(MM(6),2,SP3) 

ANS2  =  ANS  ♦  0.1 
V ECTOR( SP 1 , ANS2 , SP 1 , ANS , 0) 

VECTOR( SP 1 , ANS , SP2 , ANS , 0) 

CALL  C»VPL(ANS,YVALU) 

CALL  CURVE(SP3,YVALU,1,  1) 

CALL  YCOORD* 15, OFFSET, 0, ANS) 

CALL  FESSAG("1.7$",100,XBLK1,ANS) 

CALL  FESSAG  ("  (P)REPARE  (P)ROJECT  (M)ANAGEFENT  (P)LAN 
•$", 100,XBLK2, ANS) 

CALL  FESSAG(" (DTNSRDC)$",100,XBLK3, ANS) 

CALL  FESSAG("(DEC  8l)$",100,XLBK9,ANS) 

CALL  FESSAO("(JAN  82)$",  100,XLBK10, ANS) 

CALL  FESSAG*"  (MAR  82)$",100,XLBK11,AMS) 

CALL  fESSAQ("(MAR  82)$",100,XLBK12,ANS) 

CALL  MARKER* 9) 

CALL  VECTPL(MM(3) ,  1,SP1 ) 

CALL  VECTPL(MM(6)  ,2,  SP2) 

CALL  MARKPL(MM(6)  ,2,SP3) 

ANS2  *  ANS  ♦  0.1 
V  ECTOR*  SP  1 ,  ANS2 ,  SP  1 ,  ANS ,  0) 

VECTOR*  SP  1 ,  ANS ,  SP2 ,  ANS ,  0) 
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CALL  CURVPL(  ANS,YVALU) 
CALL  CUFVE(SP3,YVALU,1,  1) 
CALL  ENDPL(O) 

CALL  DONEPL 
END 


SUBROUTINE  VECTPL(MONT ,MYEAP, SPLOT) 

DIMENSION  MONTE(II) 

DATA  MDNTE/3HNOV,  3 HDE C ,  3HJAN,  3HFEB,  3HMAR,  3HAPR,  3HMAY,  3HJUN, 
•3HJUL,  3 HA  1X3,  3HSEP/ 


IF 

(MYEAR 

.EQ 

.  1)  SPLOT 

=  6.12 

IF 

(MYEAR 

.EQ 

.  2)  SPLOT 

=  7.37 

IF 

(MYEAR 

.EQ 

.  3)  SPLOT 

=  8.62 

IF 

(MYEAR 

.EQ 

.  4)  SPLOT 

=  9.87 

IF 

(MYEAR 

.EQ 

.  5)  SPLOT 

=  1  1.12 

IF 

(MONT 

.EQ. 

MONTE ( 1) ) 

SPLOT  =  SPLOT 

+ 

0.1  0 

IF 

(MONT 

.EQ. 

MONTE( 2) ) 

SPLOT  =  SPLOT 

+ 

0.20 

IF 

(MONT 

.EQ. 

MONTE (3) ) 

SPLOT  =  SPLOT 

+ 

0.30 

IF 

(MONT 

.EQ. 

MONTE (4) ) 

SPLOT  =  SPLOT 

+ 

o.*o 

IF 

(MONT 

.EQ. 

MONTE ( 5)  ) 

SPLOT  =  SPLOT 

♦ 

0.50 

IF 

(MONT 

.EQ. 

MONTE (6) ) 

SPLOT  =  SPLOT 

+ 

0.60 

IF 

(MONT 

.EQ. 

MONTE (7) ) 

SPLOT  =  SPLOT 

+ 

0.70 

IF 

(MONT 

.EQ. 

MONTE (8) ) 

SPLOT  =  SPLOT 

+ 

0.80 

IF 

(MONT 

.EQ. 

MONTE ( 9) ) 

SPLOT  =  SPLOT 

♦ 

0.90 

IF 

(MONT 

.EQ. 

MONTE (10))  SPLOT  =  SPLOT  • 

+■  1  .0 

IF 

(MONT 

.EQ. 

MONTE(II))  SPLOT  =  SPLOT  • 

f  1 .11 

RETURN 

END 

SUBROUTINE  YCOORD(LN, OFFSET, HEADING, ANSWER) 
BASE  =  8.925 
VARYNO  =0.2 

ANSWER  =  BASE  -  (VARYNO  »LN)  -  OFFSET 
IF  (HEADING  .EQ.  1)  OFFSET  =  OFFSET  +0.1 
RETURN 

END  . 


SUBROUTINE  MARKPL(MNTH, JYR,SS) 

DlfCNSION  MON ( 12 ) 

DATA  MDN/3H0CT,  3HN0V,  3HDEC,  3HJAN,  3HFEB,  3HMAR,  3HAPR,  3HMAY, 
•3HJUN,  3HJUL,  3HAUG,  3HSEP/ 

IF  (MNTH  .EQ.  MON( 1) )  SS  =  6.1  1 


IF  (MNTH  .EQ.  M0N(2))  SS  =  6.21 
IF  (MNTH  .EQ.  M0N(3)>  SS  =6.31 
IF  (MNTH  .EQ.  M0N(4))  SS  =6.41 
IF  (MNTH  .EQ.  M0N(5))  SS  =  6.51 
IF  (MNTH  .EQ.  M0N(6))  SS  =  6.61 
IF  (MNTH  .EQ.  M0N(7))  SS  =  6.69 
IF  (MNTH  .EQ.  M0N(8))  SS  =  6.79 
IF  (MNTH  .EQ.  M0N(9))  SS  =  6.89 
IF  (MNTH  .EQ.  MON(IO))  SS  =  6.99 
IF  (MNTH  .EQ.  MON(lD)  SS  =  7.09 
IF  (MNTH  .EQ.  M0N(12))  SS  =7.19 
IF  (JYR  .EQ.  2)  SS  =  SS  +  1.25 

IF  (JYR  .EQ.  3)  SS  =  SS  +  2.50 

IF  (JYR  .EQ.  4)  SS  =  SS  +  3-75 

IF  (JYR  .EQ.  5)  SS  =  SS  +  5.00 

RETURN 
END 


SUBROUTINE  CURVPL  ( ALNVAL , RESULT) 
RESULT  =  (ALNVAL/1 .1  D  +  0.03 
RETURN 
END 
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DTNSRDC  ISSUES  THREE  TYPES  OF  REPORTS 

1.  DTNSRDC  REPORTS,  A  FORMAL  SERIES,  CONTAIN  INFORMATION  OF  PERMANENT  TECH¬ 
NICAL  VALUE.  THEY  CARRY  A  CONSECUTIVE  NUMERICAL  IDENTIFICATION  REGARDLESS  OF 
THEIR  CLASSIFICATION  OR  THE  ORIGINATING  DEPARTMENT. 

2.  DEPARTMENTAL  REPORTS,  A  SEMIFORMAL  SERIES,  CONTAIN  INFORMATION  OF  A  PRELIM¬ 
INARY,  TEMPORARY,  OR  PROPRIETARY  NATURE  OR  OF  LIMITED  INTEREST  OR  SIGNIFICANCE. 
THEY  CARRY  A  DEPARTMENTAL  ALPHANUMERICAL  IDENTIFICATION. 

3.  TECHNICAL  MEMORANDA,  AN  INFORMAL  SERIES.  CONTAIN  TECHNICAL  DOCUMENTATION 
OF  LIMITED  USE  AND  INTEREST.  THEY  ARE  PRIMARILY  WORKING  PAPERS  INTENDED  FOR  IN¬ 
TERNAL  USE.  THEY  CARRY  AN  IDENTIFYING  NUMBER  WHICH  INDICATES  THEIR  TYPE  AND  THE 
NUMERICAL  CODE  OF  THE  ORIGINATING  DEPARTMENT.  ANY  DISTRIBUTION  OUTSIDE  DTNSRDC 
MUST  BE  APPROVED  BY  THE  HEAD  OF  THE  ORIGINATING  DEPARTMENT  ON  A  CASE-BY-CASE 
BASIS. 


